新个税公式

zhaokai598

新2011.9.1个人所得税及倒推公式.rar (19.21 KB, 下载次数: 151)

2011-9-3 10:43 上传

点击文件名下载附件

    个人整理的，请多多指教

李甲

曾几何时……我都在想：倒推有何作用呢？

wajour

锦上添花咯
自定函数PIT() 代码如下

1. Function PIT(i)
   
2. Dim H As Double
   
3. Dim r, d
   
4. H = i - 3500
   
5. If H > 0 Then
   
6. Select Case H
   
7. Case 0 To 1500
   
8. r = 0.03
   
9. d = 0
   
10. Case 1500 To 4500
    
11. r = 0.1
    
12. d = 105
    
13. Case 4500 To 9000
    
14. r = 0.2
    
15. d = 555
    
16. Case 9000 To 35000
    
17. r = 0.25
    
18. d = 1005
    
19. Case 35000 To 55000
    
20. r = 0.3
    
21. d = 2755
    
22. Case 55000 To 80000
    
23. r = 0.35
    
24. d = 5505
    
25. Case Is > 80000
    
26. r = 0.45
    
27. d = 13505
    
28. End Select
    
29. Else
    
30. r = 0
    
31. d = 0
    
32. End If
    
33. PIT = H * r - d
    
34. End Function

复制代码

allentj

这个好，完全看不懂！

zhaokai598

allentj 发表于 2011-9-3 18:14
这个好，完全看不懂！

看不懂还说好

zhaokai598

李甲 发表于 2011-9-3 11:12
曾几何时……我都在想：倒推有何作用呢？

有时候会用到，根据交纳的税求应发数

youyou163163

学习了
学习了学习了学习了学习了

zzmjxxy

wajour 发表于 2011-9-3 11:37
锦上添花咯
自定函数PIT() 代码如下

用自定义函数算工资为10710.6 得到税金为887.2  实际为887.12  相差0.08是怎么回事？

wajour

zzmjxxy 发表于 2011-9-15 13:21
用自定义函数算工资为10710.6 得到税金为887.2  实际为887.12  相差0.08是怎么回事？

我的H变量类型定义不够全面
我开始只拿整数来测试了，感谢你的提出
将02行代码改成 dim H as double
就可以了