为什么RoundToLarger函数对我的四舍五入不起作用呢？

简

我的程序中需要用到四舍五入取整数，我在论坛上用搜索，用了RoundToLarger（）函数，结果并不如意。

比如RoundToLarger（53.5，0），结果是54，而RoundToLarger（52.5，0），结果是52，而实际上我要的是53。

从论坛上的说法，尾数5的，其前一位单数进位，偶数舍去，如果5后面有数字的，一律进位，那我这种情况又这怎么办呢。

Public Function RoundToLarger(dblInput As Double, intDecimals As Integer) As Double '四舍五入
    Dim strFormatString As String
    If dblInput <> 0 Then
        strFormatString = "#." & String(intDecimals, "#")
        RoundToLarger = Format(dblInput, strFormatString)
    Else
        RoundToLarger = 0
    End If
End Function

kangking

应该简单的加0.5然后取整，例如：int(数+0.5)

简

可是+0.5也不对呀。
比如52.2+0.5，取整后是53，实际上我要的是52啊。

kangking

可是+0.5也不对呀。
比如52.2+0.5，取整后是53，实际上我要的是52啊。
简 发表于 2010-3-25 19:53

你验证过你的说法吗？