修约VBA实现四舍六入五单双

Excel中数值修约宏函数编程及检定有效期函数在检测领域的应用宏函数的建立

a.打开空白的Excel电子表格并进入VBA编辑器。

b.在VBA编辑窗口中插入一个模块,在编辑窗口添加如下VBA语言的函数体。编辑完后选择菜单“文件→关闭并返回到Microsoft Excel”命令，返回到Excel工作表窗口，这样就可以利用自定义函数完成按GB/T8170-2008规则进行数值修约了

Function xjj(c#, d%)

xjj = VBA.Round(CDec(c), d)

End Function

解释：VBA的round函数，第一参数是double型，由于浮点运算的误差，导致计算机呈现的结果不一定是我们想要的，于是用CDec函数将double型转换为decimal(小数型)，能解决精度的问题

然后直接在工作表内使用这个函数就行，第一个参数(D)为要取舍的数，第二个参数(D)为要保留的位数。