最新个人所得税计算表(自定义函数版)

tanaka

原帖由 lzqmsy 于 2011-7-2 22:18 发表
9楼公式很好,学习了,那么反算工资额的公式需要怎么写呢?请高手赐教,谢谢了!!!

我这有一个纯函数的，可以反推的，你看下的

http://club.excelhome.net/thread-737483-1-1.html

hunter1106

很有用，非常感谢！

坐看缘起

谢谢啦，先收下

jimmy1022

很及时，谢谢提供学习参考，收藏了

secowu

不要这么复杂吧

1. 
   
2. Function grsds(myssr) As Double
   
3.     tj1 = "myssr <= 1500 and myssr > 0"
   
4.     sl1 = 0.03
   
5.     kcs1 = 0
   
6.     tj2 = "myssr < = 4500 and myssr > 1500"
   
7.     sl2 = 0.1
   
8.     kcs2 = 105
   
9.     tj3 = "myssr < = 9000 and myssr > 4500"
   
10.     sl3 = 0.2
    
11.     kcs3 = 555
    
12.     tj4 = "myssr < = 35000 and myssr > 9000"
    
13.     sl4 = 0.25
    
14.     kcs4 = 1005
    
15.     tj5 = "myssr < = 55000 and myssr > 35000"
    
16.     sl5 = 0.3
    
17.     kcs5 = 2755
    
18.     tj6 = "myssr < = 80000 and myssr > 55000"
    
19.     sl6 = 0.35
    
20.     kcs6 = 5505
    
21.     tj7 = "myssr > 80000 "
    
22.     sl7 = 0.45
    
23.     kcs7 = 13505
    
24.     If myssr > 80000 Then
    
25.         mdj = 7
    
26.     Else
    
27.         If myssr <= 80000 And myssr > 55000 Then
    
28.             mdj = 6
    
29.         Else
    
30.             If myssr <= 55000 And myssr > 35000 Then
    
31.                 mdj = 5
    
32.             Else
    
33.                 If myssr <= 35000 And myssr > 9000 Then
    
34.                     mdj = 4
    
35.                 Else
    
36.                     If myssr <= 9000 And myssr > 4500 Then
    
37.                         mdj = 3
    
38.                     Else
    
39.                         If myssr <= 4500 And myssr > 1500 Then
    
40.                             mdj = 2
    
41.                         Else
    
42.                             If myssr <= 1500 And myssr > 0 Then
    
43.                                 mdj = 1
    
44.                             End If
    
45.                         End If
    
46.                     End If
    
47.                 End If
    
48.             End If
    
49.         End If
    
50.     End If
    
51.     Select Case mdj
    
52.     Case 7
    
53.         mtax = myssr * sl7 - kcs7
    
54.     Case 6
    
55.         mtax = myssr * sl6 - kcs6
    
56.     Case 5
    
57.         mtax = myssr * sl5 - kcs5
    
58.     Case 4
    
59.         mtax = myssr * sl4 - kcs4
    
60.     Case 3
    
61.         mtax = myssr * sl3 - kcs3
    
62.     Case 2
    
63.         mtax = myssr * sl2 - kcs2
    
64.     Case 1
    
65.         mtax = myssr * sl1 - kcs1
    
66.     End Select
    
67.     grsds = Application.WorksheetFunction.Round(mtax, 2)
    
68.    
    
69. End Function
    

复制代码

看看这个如何

1. 
   
2. ROUND(MAX(应纳税额*0.05*{0.6,2,4,5,6,7,9}-5*{0,21,111,201,551,1101,2701},0),2)
   

复制代码

qhch86

多谢楼主分享

chming99

响应国家号召，呵呵

wj632250587

如果能给个公式版就更好了，2007宏要开启，好多不用宏的同事不好用啊！但这个也很好用，先收了，以后用！谢谢楼主！

jimmy1022

好东东大家分享，谢谢楼主提供

jaxzhu

速度挺快！留下记号！