VB6 Round(x,0)问题

概述很久以前我的公司出现了意想不到的结果,我发现了这个问题： Dim k As DoubleDim r As Integerk = 182.5r = Round(k,0) r的结果是182,这给我的公司带来了问题,现在我必须解决它. 事情就是我观察到了这一点： Dim k As DoubleDim r As Integerk = 186.5r = Round(k,0) r = 187 当d 很久以前我的公司出现了意想不到的结果,我发现了这个问题：

Dim k As DoubleDim r As Integerk = 182.5r = Round(k,0)

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

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

Dim k As DoubleDim r As Integerk = 186.5r = Round(k,0)

r = 187

当double的整数部分的unitIEs大于5时,Round会完成我所期望的,但它不适用于unitIEs< = 5. 我怎么解决这个问题？是否有其他功能可以获得正确的舍入？

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

要收集.5：

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

总结

以上是内存溢出为你收集整理的VB6 Round(x,0)问题全部内容，希望文章能够帮你解决VB6 Round(x,0)问题所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。