请教四舍五入到小数点后某位且奇进偶不进的代码

zkpig

贴上我写的四舍五入到小数点后某位且奇进偶不进的代码，很粗糙，有更好的代码方式吗？请指教。

zkpig

贴上代码

fjmxwrs

你整个文本文件上来做什么?

zkpig

这个本来是放在excel里表格的代码里的，我把它拷贝出来了而已。。
用来对指定单元格当单元格发生变化时自动对数值四舍五入逢五奇进偶不进

zkpig

fjmxwrs 发表于 2016-5-26 14:27
你整个文本文件上来做什么?

这个本来是放在excel里表格的代码里的，我把它拷贝出来了而已。。

香川群子

应该是【四舍六入五留双】的规则吧。

2.49……2.0  4以下舍去
2.5……2.0  逢5留双 留2=2

2.60……3.0  6以上进位
3.49……3.0  4以下舍去

3.5……4.0  逢5留双 3进1=4
3.60……4.0  6以上进位

fjmxwrs

zkpig 发表于 2016-5-26 15:21
这个本来是放在excel里表格的代码里的，我把它拷贝出来了而已。。
用来对指定单元格当单元格发生变化时自动 ...

具体规则是什么，可以举例说明一下吗

香川群子

简洁的自定义函数：

1. Function ROUND2(num, digit)
   
2.     num = Format(num, "0." & String(digit + 1, "0")) '按指定小数位数截取有效数字
   
3.     If Right(num, 1) = 5 Then If Int(Right(num, 2) / 10) Mod 2 Then t = 10 ^ (-digit - 1)
   
4.     '如果末位有效数正好=5 那么如果前1位为奇数则要进位，否则不进位
   
5.     ROUND2 = Round(num + t, digit)
   
6. End Function

复制代码

d346836673

Function xjj(c#, d%)
xjj = VBA.Round(CDec(c), d)
End Function  

解释：VBA的round函数，第一参数是double型，由于浮点运算的误差，导致计算机呈现的结果不一定是我们想要的，于是用CDec函数将double型转换为decimal(小数型)，能解决精度的问题

然后直接在工作表内使用这个函数就行，第一个参数(D)为要取舍的数，第二个参数(D)为要保留的位数。

amzxfgh9632

d346836673 发表于 2016-5-27 10:23
Function xjj(c#, d%)
xjj = VBA.Round(CDec(c), d)
End Function  

的确是终极版，不错不错