VBA 函数返回错误的十进制值

Question

底部的两个函数都返回错误的值。

示例：对于142.22 的员工部分，答案应该是165.64，而不是VBA 函数返回的165.39？

同样，对于第二个函数，对于5048.94 - EmployerMPPportion，答案应该是50999.41，而答案是返回51000。

我知道我使用了四舍五入函数，但它只能四舍五入到小数点后 2 位？

我刚刚在论坛中看到 “BCD 的空间效率不是很高，但在这种情况下，你必须为准确性做出权衡”，如果这是真的，那为什么Excel 的内置函数总是返回正确的值？它们不是用 VBA 设计的吗？

Function MPPemployer (EmployeeMPPportion As Long)
    Dim c As Double
    c = Round((EmployeeMPPportion / (8.5 / 100) * (9.9 / 100)), 2)
    MPPemployer = c
End Function

Function Grossmppsalary (EmployerMPPportion As Long)
    Dim g As Double
    g = Round((EmployerMPPportion / (9.9 / 100)), 2)
    Grossmppsalary = g
End Function

Answer 1

您应该定义函数返回的内容并将参数的输入类型更改为双精度。原因的答案是该函数在计算之前将输入四舍五入为 Long。

Function MPPemployer(EmployeeMPPportion As Double) As Double
    Dim c As Double

    c = Round((EmployeeMPPportion / (8.5 / 100) * (9.9 / 100)), 2)

    MPPemployer = c
End Function

Function Grossmppsalary(EmployerMPPportion As Double) As Double
    Dim g As Double

    g = Round((EmployerMPPportion / (9.9 / 100)), 2)

    Grossmppsalary = g
End Function