Question

很久以前我的公司出现了意想不到的结果，我发现了这个问题：

Dim k As Double
Dim r As Integer
k = 182.5
r = Round(k,0)

r的结果是182，这给我的公司带来了问题，现在我必须解决它。

事情就是我观察到了这一点：

Dim k As Double
Dim r As Integer
k = 186.5
r = Round(k,0)

r = 187

当double的整数部分的unities大于5时，Round会按照我的预期进行，但对于unities＆lt; = 5则不会。

我该如何解决这个问题？是否有其他功能可以获得正确的舍入？

Answer 1

这称为银行家四舍五入，并尝试根据最接近的数字是奇数还是偶数来分配.5的上/下舍入。

围绕.5：

cint(format(182.5, "#0")) ''183
cint(format(186.5, "#0")) ''187

Answer 2

嗯，首先，你说不是这样。

k = 182.5
r = Round(k, 0)

确实会产生182，但

k = 186.5
r = Round(k, 0)

如你所说，

将产生186，而不是187。现在，

k = 185.5
r = Round(k, 0)

也会产生186。这称为Banker's Rounding，是VB6中的标准。目的是消除始终围绕一个完全中间的偏见。

如果您想要始终向上舍入0.5，请使用

k = 186.5
r = Int(k * 2 + 1) \ 2

如果你想总是向下舍入0.5，你可以使用

行

k = 186.5
r = Int(k * 2 + 0.99) \ 2

添加尽可能多的9，因为小数点后面有有效数字。