因为最近地税要求征收个税,需要自已算出来就做了个简单的计算公式

因为最近地税要求征收个税,需要自已算出来就做了个简单的计算公式
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