“四舍六入五成双”修约的模块

afrusrsc

小弟这里遇到一个需要用“四舍六入五成双”规则来修约的问题，Excel2003自带的函数里没有这个功能，所以想自己写个来用，但是这个模块不知道要怎么写，请各位大虾们帮帮忙！

baomaboy

原帖由 syz105729913 于 2011-4-7 19:43 发表
Option Explicit
Function AA(Y , I As Integer) As Double
AA = Round(Y , I)
End Function我这有个此规则的自定义函数。

此内置函数有bug，很多结果不正确，已知n年了.....

syz105729913

1. Option Explicit
   
2. Function AA(Y , I As Integer) As Double
   
3. AA = Round(Y , I)
   
4. End Function

复制代码

我这有个此规则的自定义函数。

changxuegu

http://blog.163.com/zhang2001_08 ... 853201012211155627/

zxhmfk

四舍六入五成双

syz105729913

哦，这个我还不知道呢，请指教，比如说哪些结果不正确，我好修改。

afrusrsc

给个思路吧，至少说下是以数字为主处理还是转换成文本处理？

baomaboy

原帖由 syz105729913 于 2011-4-8 11:00 发表
哦，这个我还不知道呢，请指教，比如说哪些结果不正确，我好修改。

大部分的老程序员都了解这个bug，你没办法修改，唯一的办法就是自己写算法，甚至你可以用工作表内置的round来减少代码，也不能用vba中的round

你分别试试下面修约
=aa(12.225,2)
=aa(1.225,2)
如果只是这一个数字好说，判断一下就行了，问题是很多，而且也不知道规律。

[ 本帖最后由 baomaboy 于 2011-4-8 12:46 编辑 ]

baomaboy

所以四舍六入只能自己写，不过可以借用工作表的round简化点代码，（至少这个准啊，用这放心啊）
vba的round一会儿给你四舍六入，一会儿给你四舍五入，你敢用吗？

[ 本帖最后由 baomaboy 于 2011-4-8 12:47 编辑 ]

baomaboy

都可以。

以数字运算为主处理的话也可以，搜搜可以找到不少源码，有个别的不成功，据说是由于浮点运算造成的。
所以个人倾向于转为文本处理，因为这样不掺加运算只用到逻辑判断，所以等同于人脑，永远不会错。