08年最新个人所得税EXCEL计算公式

sunny-xie

贴个出来吧[:22] [:22]

pureshadow

[:40] 0-30000之间

sunny-xie

斑竹,你要交多小的税?

pureshadow

OH YEHA!
可以到处显摆去了.......
3Q

sunny-xie

我测试了斑竹你的...

pureshadow

楼上的,你是说我的函数没问题还是ANDY的代码没问题?[:44]

sunny-xie

暂时测试没问题[:40]

sunny-xie

先试验下先[:40]

pureshadow

[:30]
不会ACCESS的说
不会代码的说

andymark

在ACCESS 和EXCEL 都能用的模块下
结果没完全测试


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
   
       GRSD = Round((Sdsg * 0.35 - 6375), 2)

  Case Is <= 100000

      GRSD = Round((Sdsg * 0.4 - 10375), 2)

  Case Is > 100000

      GRSD = Round((Sdsg * 0.45 - 15375), 2)
End Select
End Function