VB6中如何使用Round函数将数值x四舍五入到最近的整数？

本文共计295个文字，预计阅读时间需要2分钟。

长期以来，我的公司出现了一些意想不到的结果，我发现了这个问题：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 = 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< = 5. 我怎么解决这个问题？是否有其他功能可以获得正确的舍入？

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

要收集.5：

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