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

liucqa · 发表于 2012-5-8 15:25

神奇的ROUND函数

liucqa · 发表于 2012-5-8 15:28

是不是与内部浮点数表示方法有关呢

baomaboy · 发表于 2012-5-8 15:28

chenzyyysl 发表于 2012-5-8 15:24
那不是要用自定义函数了？有没有现成的？

这里有个现成的。
http://club.excelhome.net/thread-617843-1-1.html

zzq0101 · 发表于 2012-5-8 15:38

本帖最后由 zzq0101 于 2012-5-8 15:39 编辑

chenzyyysl 发表于 2012-5-8 15:24
那不是要用自定义函数了？有没有现成的？

那就自己写个自定义函数吧！
http://club.excelhome.net/thread-154563-1-1.html

yaozong · 发表于 2012-5-8 15:38

本帖最后由 yaozong 于 2012-5-8 15:53 编辑

四舍六入遇五要考虑，五后非零则为进，五后为零看奇偶，奇进偶舍要记清。
（五后为零看奇偶→指五前的哪位数的奇偶）
4.025→4.03 （合符规范）

liucqa · 发表于 2012-5-8 15:44

yaozong 发表于 2012-5-8 15:38
四舍六入遇五要考虑，五后有数则为进，五后为零看奇偶，奇进偶舍要记清。
（五后为零看奇偶→指五前的哪位 ...

?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

能否具体解释一下上面的结果？

风云际会6 · 发表于 2012-5-8 15:55

用application.round()代替round()函数就是四舍五入

yaozong · 发表于 2012-5-8 15:57

liucqa 发表于 2012-5-8 15:44
?round(4.025,2)
4.03
?round(4.035,2)

应该是五后非零则为进。
搞糊涂了。

yaozong · 发表于 2012-5-8 16:19

vba 中的 Round 函数没吃透。
同意17楼方法，用工作表函数。加：application

chenzyyysl · 发表于 2012-5-8 16:55

这个问题估计是由于浮点误差所致，刚才几个朋友给的链接中，13楼的我电脑报有风险，没敢用，14楼的看起太复杂，而且有人跟贴说有错。
我试着做了一个，精度为E-10(就是保留位的后面是0.5+-1E-10的都算0.5),麻烦大家帮测试下.

Function round55(num1, num2)
num3 = Int(num1 * 10 ^ num2)
  If Abs(num1 * 10 ^ num2 - num3 - 0.5) < 0.0000000001 Then
If (-1) ^ num3 = -1 Then num3 = num3 + 1
  Else
num3 = Int(num1 * 10 ^ num2 + 0.5)
  End If
  round55 = num3 / 10 ^ num2
End Function

		自动登录	找回密码
密码			免费注册

[求助] VBA舍入遇到的一个奇怪问题

评分

评分

评分