按四舍六入五留双的规则进行有效数字修约

三流高手

如题，分享一个按四舍六入五留双的规则进行有效数字修约的自定义函数，献给广大的E友。
经本人测试，基本上达到完美的标准了。




补充内容 (2017-9-19 20:58):
在7楼还有一个能自动设置格式的，给有需要的朋友们，希望多提反馈意见。

补充内容 (2017-9-30 19:34):
13楼的附件是对7楼的改进，需要的朋友请直接到13楼下载。

1249994139

精典的案例，谢谢分享！

有生之年

怎么无法评分呢？

YZC51

请测试！
Function Yround(c, Optional d% = 0)             '兼修约规则的四舍六入五成双法和数值修约截取位数的函数（特定场合法）

    On Error Resume Next
    If c = "" Then Exit Function
    c = CDec(c)
    X = Abs(c) + 10 ^ -99
    X = Int(-Log(X) / Log(10#))
    d = d + X
    m = 10 ^ d
    Yround = Round(c, d)
    Yround = Format(Yround, Left(0.1 / m, d + 2))
    If d < 1 Then Yround = Round(c * m, 0) / m
    If Mid(Yround, 3, 3) = "357" Then Yround = "参数溢出"
    'If c = "" Then Yround = ""
   
End Function

三流高手

YZC51 发表于 2017-9-4 21:52
请测试！
Function Yround(c, Optional d% = 0)             '兼修约规则的四舍六入五成双法和数值修约截 ...

不是很明白您的函数的用途，例如：Yround（10.85，3）返回的结果为10.81；Yround（10.85，4）返回的结果为10.851？

YZC51

现在上传文件，请老师测试
保留有效数字.rar (14.13 KB, 下载次数: 93)

2017-9-5 21:24 上传

点击文件名下载附件

三流高手

再分享一个能自动设置格式的。

三流高手

将代码拷贝到自己工作簿中的相应位置，就可以感受这个自定义函数的好处了。
有很多朋友都提出过类似的需求，即：既要四舍六入，舍入后遇到尾数为零的，还能自动以“0”补齐位数。

hezudao_long

三流高手 发表于 2017-9-19 20:54
将代码拷贝到自己工作簿中的相应位置，就可以感受这个自定义函数的好处了。
有很多朋友都提出过类似的需求 ...

据说银行有4舍6入5留双的需求.    您写的这函数,  我对保留位数有疑问,比如保留4位    12.345的结果是12.34             123.45的结果是123.4    结果都是4位数字    但是小数位一个是2位,一个是1位   感觉保持小数位数一样是否更加合适?

zopey

“四舍六入五留双”规则的目的是减少“四舍五入”的误差，和银行没有直接关系。