18.Excel vba开发-计算个人所得税

1.需求：计算个人所得税

2.代码：

Sub 计算()

 For i = 2 To 9

   Sheets(1).Cells(i, 3).Value = 个人所得税(Sheets(1).Cells(i, 2).Value)

 Next

End Sub
Function 个人所得税(curP As Currency)

    curP = curP - 1600   '1600为免征额

    If curP > 0 Then

        Select Case curP

            Case Is <= 500

                suo = curP * 0.05

            Case Is <= 2000

                suo = (curP - 500) * 0.1 + 25

            Case Is <= 5000

                suo = (curP - 2000) * 0.15 + 125

            Case Is <= 20000

                suo = (curP - 5000) * 0.2 + 375

            Case Is <= 40000

                suo = (curP - 20000) * 0.25 + 1375

            Case Is < 60000

                suo = (curP - 40000) * 0.3 + 3375

            Case Is < 80000

                suo = (curP - 60000) * 0.35 + 6375

            Case Is < 100000

                suo = (curP - 80000) * 0.4 + 10375

            Case Else

                suo = (curP - 100000) * 0.45 + 15375

        End Select

        个人所得税 = suo

    Else

        个人所得税 = 0

    End If

End Function

3.效果