Round函数四舍五入不正确，怎么办？

时　间:2004-11-10 00:00:00
作　者:Dave Mc Donald    ID：61  城市：岳阳
摘　要:Round函数返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。可是当保留位跟着的即使是5，有可能进位，也有可能舍去，机会各50%。这样就会造成在应用程序中计算有误。下面这个函数能真正实现四舍五入功能，用以取代Round函数。

正　文:

Public Function RoundToLarger(dblInput As Double, intDecimals As Integer) As Double
    
    '执行Round()函数，有可能进位
    '也有可能舍去        

    Dim strFormatString As String '格式化字符串
    
    '如果是“0”，则返回“0”，否则进行适当的格式化:
    If dblInput <> 0 Then
        strFormatString = "#." & String(intDecimals, "#")
        RoundToLarger = Format(dblInput, strFormatString)
    Else
        RoundToLarger = 0
    End If
    
End Function
 
 
来 源 于：http://www.tek-tips.com/faqs.cfm?spid=705&rat1=10&sfid=3734

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店