全年一次性奖金的税收筹划

sunya_0529

全年一次性奖金（有地方也叫“数月奖金”、“年终奖”等等），由于特殊的算法，出现了多发一块钱，个税要多交数千元的怪现象，这个问题在网上的讨论也很多，已经引起了越来越多的人的关注。

鉴于很多人问到了这个问题，想做个小小的总结（帮大家预搜索了一下而已），给求答案的后来者们一个一站式的信息中心。

既有方案——

chrisfang版主：[分享] 7级税率下的年终奖个税计算公式

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

wangtx218：[分享] 最新个税公式2011年6月30日（二楼）

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

白色GG ：[分享] 一键进行年终奖和工资调节，使税后收入最大化

http://club.excelhome.net/forum.php?mod=viewthread&tid=814414

典型案例——

天际菲虹：如何避免年终奖个税盲区，使个税缴纳的最少？

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

在上面的典型案例中，本人给出了一个自己的解决方案，二楼将分享一下思路及原理。

sunya_0529

先介绍一下计算个税的自定义函数（工资、劳务、全年一次性奖金三位一体）
使用范例——

	A	B	C	D	E	F
1	国籍	月工资	社保公积金	计税工资	所得税	实发工资
2	中国	5000	900	4100	18	4082
3			=B2*18%	=B2-C2	=iiatax(D2,IF(A2="中国",1,2))	=D2-E2
4
5	国籍	计税工资	年终奖	奖金所得税	实发奖金
6	中国	4100	18001	1695.1	16305.9
7		=D2		=iiatax(C6,(A6<>"中国")+1,B6)	=C6-D6

下面是自定义函数的源代码：

1. Function iiatax(x As Double, y As Integer, Optional z As Double) '独立所得税计算函数
   
2. 'y=1 计算中国公民工薪所得税
   
3. 'y=2 计算外国公民工薪所得税
   
4. 'y=3 计算劳务所得税
   
5. 'z 可选，年终一次性奖金发放当月的计税工资
   
6. 
   
7. 'Application.Volatile False
   
8. If IsNumeric(x) = False Then
   
9.   iiatax = "#NUM" '计税工资非数值
   
10.   Exit Function
    
11. End If
    
12. 
    
13. If x < 0 Then
    
14.   iiatax = "-#VAL" '计税工资为负
    
15.   Exit Function
    
16. End If
    
17. 
    
18. Dim basicnum As Integer, i As Integer
    
19. Dim downnum As Variant, upnum As Variant, ratenum As Variant, deductnum As Variant, laowudeduct As Variant
    
20. Dim gongxin As Double, laowu As Double, nianjiang As Double
    
21. downnum = Array(0, 1500, 4500, 9000, 35000, 55000, 80000) '定义累进区间下限
    
22. upnum = Array(1500, 4500, 9000, 35000, 55000, 80000, 100000000) '定义累进区间上限
    
23. ratenum = Array(0.03, 0.1, 0.2, 0.25, 0.3, 0.35, 0.45) '定义累进税率
    
24. deductnum = Array(0, 105, 555, 1005, 2755, 5505, 13505) '定义累进速算扣除数
    
25. 
    
26. Select Case y
    
27.   Case 1
    
28.     basicnum = 3500 '中国公民个税起征点，2011年9月1日起执行
    
29.   Case 2
    
30.     basicnum = 4800 '外籍公民个税起征点
    
31.   Case 3 '劳务所得税
    
32.     downnum = Array(0, 4000, 20000, 50000)
    
33.     upnum = Array(4000, 20000, 50000, 100000000)
    
34.     ratenum = Array(0.2, 0.2, 0.3, 0.4)
    
35.     deductnum = Array(0, 0, 2000, 7000)
    
36.     laowudeduct = Array(800, x * 0.2, x * 0.2, x * 0.2)
    
37.     For i = 0 To UBound(downnum)
    
38.       If x > downnum(i) And x <= upnum(i) Then
    
39.         laowu = (x - laowudeduct(i)) * ratenum(i) - deductnum(i)
    
40.         Exit For
    
41.       End If
    
42.     Next i
    
43.   Case Else
    
44.     iiatax = "#N/A" '参数不能识别
    
45.     Exit Function
    
46. End Select
    
47. 
    
48. If z > 0 Then '数月奖金计税
    
49.   For i = 0 To UBound(downnum)
    
50.     If x / 12 > downnum(i) And x / 12 <= upnum(i) Then
    
51.       nianjiang = Application.Max((x - Application.Max(basicnum - z, 0)) * ratenum(i) - deductnum(i), 0)
    
52.       Exit For
    
53.     End If
    
54.   Next i
    
55. Else '计算工薪所得税
    
56.   For i = 0 To UBound(downnum)
    
57.     If x - basicnum > downnum(i) And x - basicnum <= upnum(i) Then
    
58.       gongxin = (x - basicnum) * ratenum(i) - deductnum(i)
    
59.       Exit For
    
60.     End If
    
61.   Next i
    
62. End If
    
63. 
    
64. If y = 3 Then gongxin = 0
    
65. iiatax = Application.Round(gongxin + laowu + nianjiang, 2)
    
66. End Function

复制代码

sunya_0529

先看一下个税筹划的一个简单的实例——

国籍	月工资	社保公积金	年终奖	计税工资	计税奖金	工资税	奖金税	实得收入	备注
中国	25000	4500	18001	20500	18001	3245	1695.1	33560.90	常规计税
中国	25001	4500	18000	20501	18000	3245.25	540	34715.75	优化计税，陷阱模式
中国	9501	4500	33500	5001	33500	45.1	3245	35210.90	优化计税，疯狂模式

第二行数据显示的是将多发的1块钱奖金调节到月工资里计税，则省1154.85元个税的例子，这就是常说的陷阱；

第三行数据显示的是将工资里的15499元调节到年终奖里发放，则省1650元个税的例子。

在实际操作中，针对陷阱模式的优化计税比较可行，可以将调节的金额另立一个名目，比如叫“XX津贴"、"XX补贴"等直接放在工资里发放即可；而”疯狂模式“的操作其实也可以操作，直接在病事假或者其他扣款里减掉工资里调节出来的金额，加到年终奖里一起发放就好了，不过这种方式需要跟员工本人确认，HR不能做到最后被倒打一靶说公司克扣员工的工资，解释起来比较麻烦。

这里针对两种模式的筹划，同样使用了一个自定义函数，如上面的例子中，第二行的年终奖中的公式是：”=bestab(E2,D2,(A3="中国")+1,1)“

第四个参数为0时是”疯狂模式“，为1时是”陷阱模式“，可以根据需要自行设定。（具体使用可以参考附件中的例子）

这个自定义函数的计算原理是使用枚举法测算税赋最小值，在”计税工资+年终奖“不变的情况下，年终奖从0开始逐步递增500，找到最小税赋值时记录下对应的工资和奖金值。（详情可参见附件中的”合理避税“表）

下面是这个自定义函数的源代码——

1. Function BestAB(dbl1 As Double, dbl2 As Double, isCN As Boolean, isTrap As Boolean)
   
2. 'dbl1,数月奖金发放当月计税工资
   
3. 'dbl2,数月奖金金额
   
4. 'isCN,“0”为外籍员工，“1”为中籍员工
   
5. 'isTrap,“0”为疯狂模式，“1”为陷阱模式
   
6. 
   
7. Dim r1 As Double, r2 As Double, s As Double, i As Double, arr(9999, 4), j%
   
8. '求优化前的应纳税额
   
9. r2 = iiatax(dbl1, IIf(isCN, 1, 2)) + iiatax(dbl2, IIf(isCN, 1, 2), dbl1)
   
10. For i = 0 To dbl1 + dbl2 Step 500
    
11.   '奖金调节为i时，求纳税额
    
12.   arr(j, 0) = iiatax(dbl1 + dbl2 - i, IIf(isCN, 1, 2)) + iiatax(i, IIf(isCN, 1, 2), dbl1 + dbl2 - i)
    
13.   '工资调节为i时，求纳税额
    
14.   arr(j, 1) = iiatax(i, IIf(isCN, 1, 2)) + iiatax(dbl1 + dbl2 - i, IIf(isCN, 1, 2), i)
    
15.   arr(j, 2) = i '奖金额
    
16.   arr(j, 3) = dbl1 + dbl2 - i '工资额
    
17.   r1 = arr(j, 0)
    
18.   If isTrap Then '如果是陷阱模式的话，只向下调节奖金
    
19.     If r1 <= r2 And i < dbl2 Then
    
20.       r2 = r1
    
21.       s = i
    
22.     End If
    
23.   Else '如果是疯狂模式的话，工资奖金双向调节，直至最优
    
24.     If r1 <= r2 Then
    
25.       r2 = r1
    
26.       s = i
    
27.     End If
    
28.   End If
    
29.   j = j + 1
    
30. Next
    
31. If s = 0 Or Round(iiatax(dbl1 + dbl2 - s, IIf(isCN, 1, 2)) + iiatax(s, IIf(isCN, 1, 2), dbl1 + dbl2 - s), 2) = Round(iiatax(dbl1, IIf(isCN, 1, 2)) + iiatax(dbl2, IIf(isCN, 1, 2), dbl1), 2) Then
    
32.   BestAB = dbl2
    
33. Else
    
34.   BestAB = s
    
35. End If
    
36. End Function

复制代码

fu123

好思路{:soso_e166:}

sunya_0529

自己顶一下，又到年底发奖金的时候了，希望可以能给有需要的人帮上一点小忙。

顺祝大家2013年元旦快乐，E家幸福安康{:soso_e182:}

齐音思鸥

{:soso_e179:}

筱雨1999

好东西，神器啊      

Dr.Hiluluk

有没有批量算的？

sunya_0529

Dr.Hiluluk 发表于 2013-12-30 15:47
有没有批量算的？

上面的函数就是可以批量算的呀。

Dr.Hiluluk

sunya_0529 发表于 2013-12-31 13:04
上面的函数就是可以批量算的呀。

怎么弄啊？我好像看到只能输入一个人的工资数额进行测算啊