小编lyr*_*rqs的帖子

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

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.

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