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

广西IT网 2019-09-15

中国药典的修约原则按照GB/T 8170《数值修约规则与极限数值的表示和判定》是四舍六入五成双(只是中国药典这样,USP、EP都是四舍五入)。四舍六入五成双的修约原则为:


1. 被修约的数字小于5时,该数字舍去;

2. 被修约的数字大于5时,则进位;

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


EXCEL 电子表格里面,默认显示位数或者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位有效数字的话,则本公式不可用。但这种情况很少。

公众号

GMP办公室

  • 专业的GMP合规性研究组织

  • 国内外(FDA、EMA、MHRA、CFDA、WHO、PIC/S等)GMP法规解读;

  • 国内外制药行业GMP监管动态;

  • GMP技术指南(ISPE、PDA、ISO、ASTM等)分享