四舍五入的问题

zx994398

Option Compare Database
Function myRound(Number As Double, N As Integer) As String
myRound = Format(Int(Number * (10 ^ N) + 0.5) / (10 ^ N), "0." & String(N, "0"))
End Function
Function sswr(Number As Double, DP As Integer) As Double
sswr = Int((Number * 10 ^ DP) + 0.5) / 10 ^ DP
End Function

发现myRound(4.185,2)=4.18     sswr(4.185,2)=4.18，结果应该为4.19，不正常，
试了别的似乎是正常的，如myRound(4.15,1)=4.2     sswr(4.15,1)=4.2
不知道是我的电脑的问题还是别的什么问题
求助！！！！！！！！

ui

Access的四舍五入有问题,论坛以前有个版主有个函数, 解决了,搜索一下