java 四舍六入五成双_EXCEL实现四舍六入五成双修约规则的方法

中国药典的修约原则是四舍六入五成双(只是中国药典这样，USP、EP都是四舍五入)。四舍六入五成双的修约原则为：

1. 被修约的数字小于5时，该数字舍去；

2. 被修约的数字大于5时，则进位；

3. 被修约的数字等于5时，要看5前面的数字，若是奇数则进位，若是偶数则将5舍掉，即修约后末尾数字都成为偶数；若5的后面还有不为“0”的任何数，则此时无论5的前面是奇数还是偶数，均应进位。

EXCEL2003/2007/2010/2013电子表格里面，如果使用Round函数只能得到四舍五入的结果，那么如何到下面四舍六入五成双的结果呢？

1、按ALT+F11，打开vba编辑器

右键点击Thisworkbook-插入-模块

2、将下面代码拷贝进去

Function TranValue(rng As Double, number As Integer) As Double

TranValue = Round(rng, number)

End Function

3、保存为启用宏的工作簿或在一开始就启用宏也是可以的，关闭vba编辑器

4、在电子表格中直接使用公式

= tranvalue(A1,x)

然后向下拉公式既可以。这里A1是待修约数据所在的单元格，x表示修约至小数点后x位。

下面是这一公式的测试：

首先考虑以下几点，设置相应的原始数值测试修约功能：

≤4 时舍去

≥6时进上

当5后有数时进上；

当5后无数，且5前为奇数时，舍5入1(化双)；

当5后无数，且5前为偶数时，舍5不进(化双)

测试表和测试结果如下：

测试结果成功，代码正确，公式可用。

备注：在EXCEl中只能显示15位有效数字，若超过15位，EXCEL一般会把后面的数字用0代替，因此若待修约数值超过15位有效数字的话，则本公式不可用。但这种情况很少。