VBA舍入遇到的一个奇怪问题

chenzyyysl

VBA中的舍入是按4舍6入5成双的规则，但今天遇到一个奇怪的问题，大家看看是不是一样会出现。
用的07版，WIN7 64位机上测试。

round(8.05/2,2)   这个结果得出是4.03，不是想像的4.02，但其它的测试的数都没有问题， 如8.09，4.05等都没有问题。

风云际会6

应该没有错是四舍五入啊：8.05/2=4.025，四舍五入是4.03

灰袍法师

确实有这个毛病。。。。。。

liucqa

?round(4.005,2)
4
?round(4.015,2)
4.01
?round(4.025,2)
4.03
?round(4.035,2)
4.04
?round(4.045,2)
4.04
?round(4.055,2)
4.06
?round(4.065,2)
4.07
?round(4.075,2)
4.08
?round(4.085,2)
4.08
?round(4.095,2)
4.1

chenzyyysl

风云际会6 发表于 2012-5-8 15:05
应该没有错是四舍五入啊：8.05/2=4.025，四舍五入是4.03

你试一下VBA中用msgbox round(6.05/2,2)

baomaboy

事实上你用VBA中的Round当4舍6入5成双用会出现很多的错误值，不只是4.03，
Round(1.225, 2)
Round(1.245, 2)
Round(4.025, 2)
Round(4.065, 2)
还有很多，这个很多年了。

http://club.excelhome.net/thread-617843-1-1.html

风云际会6

刚才试了一下，如楼主所说的，怪事，我是用2010版的也是这样的

liucqa

?round(1.025,2)
1.02
?round(2.025,2)
2.02
?round(3.025,2)
3.02
?round(4.025,2)
4.03
?round(5.025,2)
5.03
?round(6.025,2)
6.02
?round(7.025,2)
7.02
?round(8.025,2)
8.02
?round(9.025,2)
9.02
?round(10.025,2)
10.02

chenzyyysl

baomaboy 发表于 2012-5-8 15:20
事实上你用VBA中的Round当4舍6入5成双用会出现很多的错误值，不只是4.03，
Round(1.225, 2)
Round(1.245, ...

那不是要用自定义函数了？有没有现成的？

zzq0101

round(4.025,2)=4.03     round(4.065,2)=4.07     都会出错的！