计算劳务部分个人所得税的自定义函数

heqiubao

帮朋友写了下计算劳务费个人所得税的自定义函数，如下：

Option Explicit
Function LWTax(vIncome) As Double
'计算劳务的个人所得税
    Dim dIncome As Double
    Dim dEaring As Double
   
    On Error Resume Next
   
    dIncome = CDbl(vIncome)  '将用户输入的收入转换成数值格式，防止错误输入
    If dIncome <= 4000 Then
        dEaring = dIncome - 800
    ElseIf dIncome > 4000 Then
        dEaring = dIncome * (1 - 0.2)
    End If
   
    Select Case dEaring
        Case Is < 20000
            LWTax = dEaring * 0.2
        Case 20001 To 50000
            LWTax = dEaring * 0.3 - 2000
        Case Is > 50000
            LWTax = dEaring * 0.4 - 7000
    End Select
   
    If LWTax < 0 Then LWTax = 0
  
End Function