Public Function 个人所得税(月收入, Optional 起征点) As Single
Dim 税率 As Single, 速扣数 As Single, 应纳税额 As Single
If IsMissing(起征点) Then
起征点 = 3000
End If
应纳税额 = 月收入 - 起征点
Select Case 应纳税额
Case 0 To 1500
税率 = 0.05: 速扣数 = 0
Case 1501 To 4500
税率 = 0.1: 速扣数 = 75
Case 4501 To 20000
税率 = 0.2: 速扣数 = 525
Case 20001 To 40000
税率 = 0.25: 速扣数 = 1525
Case 40001 To 60000
税率 = 0.3: 速扣数 = 3525
Case 60001 To 80000
税率 = 0.35: 速扣数 = 6525
Case Else
税率 = 0.45: 速扣数 = 14525
End Select
If 应纳税额 <= 0 Then
个人所得税 = 0
Else
个人所得税 = Round(应纳税额 * 税率 - 速扣数, 2)
End If
End Function
插入模块后将此代码粘帖到VBE代码窗口，然后[另存为]“Excel 启用宏模版”，使用时，你在【插入函数】调出“个人所得税”即可使用，同别的函数使用方法一样。
