Public Function GRSD(Je As Currency, Optional Cjd As Integer = 2000) As Currency
'计算个人所得税
'JE 为应纳税所得额
'Cjd 为起征点
'用法: =GRSD(A2) 如:GRSD(8400) 结果 为 905
Dim Sdsg As Currency
Sdsg = Je - Cjd
Select Case Sdsg
Case Is <= 0
GRSD = 0
Case Is <= 500
GRSD = Round(Sdsg * 0.05, 2)
Case Is <= 2000
GRSD = Round((Sdsg * 0.1 - 25), 2)
Case Is <= 5000
GRSD = Round((Sdsg * 0.15 - 125), 2)
Case Is <= 20000
GRSD = Round((Sdsg * 0.2 - 375), 2)
Case Is <= 40000
GRSD = Round((Sdsg * 0.25 - 1375), 2)
Case Is <= 60000
GRSD = Round((Sdsg * 0.3 - 3375), 2)
Case Is <= 80000