四舍六入五单双自定义函数(克服电脑浮点运算误差)

wxd95

Function SSLR(number As Double, N As Integer) As Variant
If N = 0 Then
     SSLR = Val(VBA.Round(CDec(number + 10 ^ 6), N) - 10 ^ 6)
Else
   If N = 1 Or N = 2 Or N = 3 Or N = 4 Or N = 5 Then
      SSLR = Val(VBA.Round(CDec(number + 10 ^ N), N) - 10 ^ N)
   Else
      SSLR = "N大于5 或 N小于0"
   End If   
End If
End Function

ykcbf1100

这个财务人员能用到。

wxd95

ykcbf1100 发表于 2024-8-7 18:45
这个财务人员能用到。

试验检测人员的常用自定义函数