终极完美解决四舍六入五留双

彤枫飘零

三流高手 发表于 2015-1-17 09:08
你好，我也是药企的，也经常与验证打交道。对这个“四舍六入五留双”的自定义函数进行验证的问题，可以和 ...

老师您好，我之前我做过EXCEL的验证，基本步骤与您的相同。就是当时自己编的函数也是网上找的，当时是把编程附在方案里的，验证步骤与您的一样，后来FDA审计也通过了，还称赞做得好。但是自己做验证时发现有个地方其实是无法做的“四舍六入五留双”的，现在箱改掉。用了您的函数，目前没发现什么问题，但我对VBA不了解，就是箱知道您的编程是怎样的，然后附在方案中。我查看了，显示内容如下，不知是否是这个，如不是，望老师能告知，十分感谢。因为实在不懂VBA，见笑。

'终极完美的四舍六入五留双的自定义函数代码，其实很简单
Function bround(c#, d%)
    bround = VBA.Round(CDec(c), d)
End Function
'下列代码只用于测试
'直接调用VBA中的round函数，会出现很多错误的结果（因为浮点误差的原因，即：显示的数字与计算机内部实际存储的数值并不一致，
'如16.455在内存中可能是16.454999999999……，这样就导致了错误的修约结果）
Function xround(c#, d%)
    xround = VBA.Round(c, d)
End Function

三流高手

彤枫飘零 发表于 2015-2-16 16:42
老师您好，我之前我做过EXCEL的验证，基本步骤与您的相同。就是当时自己编的函数也是网上找的，当时是把编 ...

正确的代码如下：
Function bround(c#, d%)
    bround = VBA.Round(CDec(c), d)
End Function
把它放到验证文件中即可。

911_com

以往用EXCEL算数据都是赌老板不会拿计算器参照GB/T 8170-2008对着我们的数据来算，有了这个函数以后就不用担心修约问题了。

彤枫飘零

三流高手 发表于 2015-2-17 08:54
正确的代码如下：
Function bround(c#, d%)
    bround = VBA.Round(CDec(c), d)

谢谢，老师您了

简凡20130707

    感谢分享

丢丢表格

就是不懂，楼主发的东东有什么意义

用函数的写法是：
=MROUND(A1,1%/(1+(MOD(A1*1000-5,20)=0)))

YZC51

试试看
Function jround(c#, d%)

        jround = Round(c + 100, d) - 100
   
End Function

YZC51

加错误判断处理
Function jround(c, d%)

    On Error Resume Next
    jround = Round(c + 100, d) - 100
        
End Function

沧海小小兵

虽然还没怎么用，先下载来备用，赞

YZC51

丢丢表格 发表于 2015-6-23 13:29
就是不懂，楼主发的东东有什么意义

用函数的写法是：

科学计数法

您的公式不错，不过还有不足！