关于四舍六入五成双的修约规则

miceqi

用Excel处理数据经常会遇到修约的时候，过去是四舍五入，现在药典已经采用四舍六入五成双了，但是没有现成的函数来实现，网上搜了一下，有人分享了如下自定义函数：

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

    TranValue = Round(rng, number)

End Function

本人VBA小白，请教一下高手能否详细解释一下这个自定义函数是如何实现四舍六入五成双的，谢谢！

hhjjpp

vba里round函数就是此规则，史称银行家算法

miceqi

先说说我个人的理解：
Function TranValue(rng As Double, number As Integer) As Double
声明函数TranValue(A，B)为双精度浮点型数据，其中A（rng As Double）为单元格对象亦为双精度浮点型数据，B（number As Integer）为整数，起到指定保留位数的作用；

    TranValue = Round(rng, number)
定义函数为Banker's规则修约（即四舍六入五成双，（number为正数，则保留至小数点后number位数，number为0则保留整数，number为负数则修约至小数点左边的-number位数））

End Function

18202720665

如@hhjjpp大神所说。
一般的四舍五入可以利用int函数；但是四舍六入五双就需要利用round函数。

miceqi

hhjjpp 发表于 2018-5-25 09:57
vba里round函数就是此规则，史称银行家算法

谢谢，之前把VB的round理解成Excel的round了~

hhjjpp

miceqi 发表于 2018-5-25 12:17
谢谢，之前把VB的round理解成Excel的round了~

vba里要调用excel函数，冠以application.

jpfkubing

hhjjpp 发表于 2018-5-25 09:57
vba里round函数就是此规则，史称银行家算法

论坛里面找过了，说这个函数有bug，有些神经，一会儿四舍五入，一会四舍六入