[分享]VBA四舍五入函数round()的一些不同

qqaa266

来个笨方法
du为要四舍五入的数字，n为分保留的小数位数
Function Rrou(ByVal du As Double, ByVal n As Long)
         Dim tem As Double
         tem = 10 ^ (n + 1)
         Rrou = Fix((du * tem + 5) / 10) / 10 ^ n
End Function

r_zxf

qqaa266 发表于 2013-1-22 09:06
来个笨方法
du为要四舍五入的数字，n为分保留的小数位数
Function Rrou(ByVal du As Double, ByVal n As  ...

请用1.035和2.135 试试，结果是预期的吗？

r_zxf

jbjbzjb 发表于 2013-5-7 12:54
不懂装懂，还装“行家”，真够恶心人的了。

坐多了，就好了

r_zxf

jbjbzjb 发表于 2013-5-7 12:54
不懂装懂，还装“行家”，真够恶心人的了。

看来你还是新人呀，有点晕车，做多了就好了。

jbjbzjb

r_zxf 发表于 2013-5-7 12:02
请大家注意这样的事实，计算机并不是我们通常想象的那样“精确”，由于计算机表示数据的二进制位数是有限的 ...

不懂装懂，还装“行家”，真够恶心人的了。

r_zxf

请大家注意这样的事实，计算机并不是我们通常想象的那样“精确”，由于计算机表示数据的二进制位数是有限的，带有小数的十进制数据在计算机中往往是不“相等”的。除了数据别是误差外，还有计算带来的误差。所以，计算机是很不“精确”。

r_zxf

本人认为EXCEL（2003）  VBA中Round函数应该有错误，大家找不出规律的。谁找出了规律，告诉我哦。

雨静儿

没想到这么学问啊

wzsy2_mrf

要真正的四舍五入就采取工作表函数好了
a = Round(13.765, 2) '13.76 因为第三位是5，而其前面6是偶数，所以不进
b = Application.Round(13.765, 2) ‘13.77 就是我们平时理解的四舍五入。