主题：round2()问题

老师好！，我偶然发现round2()函数结算结果不准确，例子如下：

hehe,我顶

 嗯嗯，测试确实有些错漏。看来需要重写。

 目前你可以先这样解决 output.show("四舍五入后:" & round2(3930*0.0045 + 0.0001, 2))

收到

顶顶看

我的自定义函数管用

'四舍五入公式
Dim a As Decimal=args(0)'数据原始值
Dim b As Decimal=args(1)'保留小数位数
Dim c As Decimal '返回值
If int(a*10^(b+1)) Mod 10<5 Then
    c=(int(a*10^(b+1))-int(a*10^(b+1)) Mod 10)*10^-(b+1)
Else
    c=(int(a*10^(b+1))+10-int(a*10^(b+1)) Mod 10)*10^-(b+1)
End If
Return c

这个问题2016版还存在不?

用format，就是严格的四舍五入。

 

比如 msgbox(format(17.685, "0.00"))