当前位置 : 主页 > 编程语言 > c语言 >

VB6 Round(x,0)问题

来源:互联网 收集:自由互联 发布时间:2021-06-24
很久以前我的公司出现了意想不到的结果,我发现了这个问题: Dim k As DoubleDim r As Integerk = 182.5r = 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
网友评论