主题：关于Round2函数

以前一直没注意，今天发现个问题。

 

Dim a As Double = 215.91
Dim b As Double = 43.5
Dim c As Double = a*b

Output.show(c)
Output.show(Round2(c,2))

 

 

结果是：

 

9392.085
9392.08

 

没有四舍五入啊。

经过测试确实有问题是BUG 就0.85不可以其他值都可以.

晕啊

 

可以这样处理：

 

Dim a As Double = 215.91
Dim b As Double = 43.5
Dim c As Double = a*b + 0.0000000001
Output.show(c)
Output.show(Round2(c,2))

我的系统里很多地方都用了 Round2函数，要改很多地方。

狐爸，

 

能升级一下这个函数吗？太多地方用了，每个都这么改，很难的。多谢

老大，能升级一下这个函数吗？

我135處用了這個函數，每个都这么改，很难的。多谢！！！

顶顶！

 最新版，已经没有这个问题了。

 

 你也可自己定义个同名的函数进行处理，思路

 

Public Function Round2(val As Double, num As Integer) As Double
    Return Format(val, "#." & "000000000".Substring(0,num))
End Function

我反应的这个问题，2016还是没解决，晕啊！