Office中国论坛/Access中国论坛

标题: 四舍五入的问题 [打印本页]

作者: zx994398 时间: 2008-11-10 10:16
标题: 四舍五入的问题
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 时间: 2008-11-10 14:49
Access的四舍五入有问题,论坛以前有个版主有个函数, 解决了,搜索一下

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)