很少有人能解决。小数点有问题了!!!神啊，救救我吧！

murderlovt

我也碰到这个问题了。
在帮采购做的一个金额大写公式中偶尔会出现一些莫名其妙的结果，用F9追究一下发现就是小数搞的鬼。
比如我对B1单元格中的数值2245.3取小数点后的部分，对它MOD(B1,1)之后返回给我的并不是0.3，而是0.300000000000182.
给B1单元格的值套一层ROUND也无济于事，甚为不解。
期望高人站出来道出究竟。

summer.linn

真的呢，不试还不相信呢！

老鼠狒狒

老兄啊,我试了试你的说法,但我没有发现你说的现象啊.会不会是你无意中把某些设置改了吧

lu_zhao_long

我的电脑上也是一样的现象！
实际上这是由于CPU在处理浮点数时出现的误差。如果有谁感兴趣的话，不妨可以手动计算一下33127.5159 用二进制（或十六进制）表示的话应该是多少？通常情况下1个小数无限乘以 2而不能最终为整数的话则不能被计算机完整表达，会被丢掉一些有效数字的。
我计算了一下，十六进制结果应该是 0.54CE72E5E1D7D（52位有效数字）X 10^5 （总共64位）。再把这个值转换成10进制的话，就变成了楼主所说的结果：33127.5148999999！
所以，既然我们知道浮点数计算后会有误差，那么我们在使用时应该有所注意就行了。比如使用4舍5入、取整等等方法来加以处理才可以避免此类错误！

soinrain

楼上的回答精辟！

yhltxy

真是这样，长见识

coby001

呵呵  浮点数的近似值表示法，这是电子计算机诞生以来一直就存在的顽疾，呵呵

[ 本帖最后由 coby001 于 2009-3-16 01:04 编辑 ]

coby001

Sub Test()
Dim rx As Range
[a1] = 33127.5159
Set rx = [a1]
MsgBox "Value: " & rx.Value & vbCrLf & "Value2: " & rx.Value2 & vbCrLf & "Text: " & rx.Text & vbCrLf & "Formula: " & rx.Formula
End Sub

wuxiang_123

我也没碰过，按你输入的都没问题。

konkonye

呵呵,平时还没有注意到,刚试了下,我的电脑也是这种现象呢,长见识了,谢谢大家!