关于round函数的问题

[dyy830606]

Text1.Text = Round(0.1245, 3) 结果为0.124
Text1.Text = Round(0.1255, 3) 结果为0.126
为什么啊，奇进偶不进
还有什么函数能够表示四舍五入

[dyy830606]

有人知道么

[zzyong00]

前几天有人提过这样的问题
用format

[舉杯邀明月]

Format$(15.1245,"0.000") = 15.125
Format$(15.1255,"0.000") = 15.126

[zzyong00]

编程得用脑子

[dyy830606]

楼上的什么话，我要源程序了么，我只是问问这个函数是不是就是这样，再说，看看是不是有其他的解决方法，你打出来这句回答貌似也没用什么脑子

[lyserver]

VB的round函数并不准确,你需要修改一下。
下面是我的改进后的代码：
Public Function myRound(nNumber, Optional nDec As Long = 0)
myRound = Round(nNumber + 0.1 ^ (nDec + 1), nDec)
End Function

[dyy830606]

那要用多少个if语句阿，小数位数是不确定的，并且前面还有可能有< > 等

[舉杯邀明月]

Function MyFormat(ByVal n#, ByVal m&) As String
    
    If (m > 0) Then
        MyFormat = Format$(n, "0." & String(m, "0"))
    Else
        MyFormat = Format$(n, "0")
    End If

End Function

............

[dyy830606]

太感谢了。