Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 模块类函数VBA › 查看内容

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

1970-1-1 08:00| 发布者: Dave Mc&nb| 查看: 2539| 评论: 0

作    者：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

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

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

最新评论

相关分类