Round函数四舍五入不正确，怎么办？_access模块-access类模块-access函数-access VBA

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

时间：2004-11-23 22:34 来源：AccessFaq 作者：Dave Mc … 阅读：次

作    者：Dave Mc Donald
发布日期：2003年9月10日
摘    要：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

(责任编辑：admin)

顶一下

(0)

踩一下

(0)

上一篇：Access中判断内容是否为空的函数
下一篇：别让MsgBox中断了一些Background的处理作业