因为最近地税要求征收个税,需要自已算出来就做了个简单的计算公式
因为最近地税要求征收个税,需要自已算出来就做了个简单的计算公式Function gs(i)
Select Case i
Case 0 To 1200
temp = i * 0
Case 1200 To 1700
temp = (i - 1200) * 0.05
Case 1700 To 3200
temp = 25 + (i - 1700) * 0.1
Case 3200 To 7200
temp = 175 + (i - 3200) * 0.15
Case 7200 To 21200
temp = 625 + (i - 7200) * 0.2
Case 21200 To 41200
temp = 3625 + (i - 21200) * 0.25
Case 41200 To 61200
temp = 8625 + (i - 41200) * 0.3
Case 61200 To 81200
temp = 14625 + (i - 61200) * 0.35
Case 81200 To 10200
temp = 21625 + (i - 81200) * 0.4
Case 10200 To 99999999
temp = 29625 + (i - 101200) * 0.45
Case Else
MsgBox "输入无效！请重新输入！"
End Select
gs = Round(temp, 2)
End Function
2006版
Function gs(i)
Dim n As Integer
n = 1600 '起点征税额
Select Case i
Case 0 To n
temp = 0
Case n To n + 500
temp = (i - n) * 0.05
Case n + 500 To n + 2000
temp = 25 + (i - n - 500) * 0.1
Case n + 2000 To n + 5000
temp = 175 + (i - n - 2000) * 0.15
Case n + 5000 To n + 20000
temp = 625 + (i - n - 5000) * 0.2
Case n + 20000 To n + 40000
temp = 3625 + (i - n - 20000) * 0.25
Case n + 40000 To n + 60000
temp = 8625 + (i - n - 40000) * 0.3
Case n + 60000 To n + 80000
temp = 14625 + (i - n - 60000) * 0.35
Case n + 80000 To n + 100000
temp = 21625 + (i - n - 80000) * 0.4
Case n + 100000 To 99999999
temp = 29625 + (i - n - 100000) * 0.45
Case Else
MsgBox "输入无效！请重新输入！"
End Select
gs = Round(temp, 2)
End Function
页:
[1]