Dim bb As Double = args(0) '3.994
Dim wz As Integer = args(1) '2
Dim bstr As String = CStr(bb)
If bstr.IndexOf(".")=-1 Then Return bb
Dim nbbs As String() = bstr.Split(".") '分割小数点
If nbbs(1).length<=wz Then Return bb
Dim nxs As String = nbbs(1).SubString(0,wz) '截取小数
Dim newb As Double = nbbs(0) & "." & nxs '整数拼接位数
Dim xsh As Double = nbbs(1).SubString(wz,1) ' 截取后面数值
Dim szzj As String="0." '填空小数
For i As Integer = 1 To wz-1
szzj = szzj & "0"
Next
szzj = szzj & "1"
If xsh>=5 Then newb = newb+szzj '判断这个数值是否大于等于5
Return newb
加好友 
发短信
Post By：2020/11/15 8:23:00 [显示全部帖子]
