级数	全月应纳税所得额（含税级距） 【税率资讯网提供】	全月应 纳税所得额 （不含税级距）	税率(%)	速算扣除数
1	不超过1,500元	不超过1455元的	3	0
2	超过1,500元至4,500元的部分	超过1455元至4155元的部分	10	105
3	超过4,500元至9,000元的部分	超过4155元至7755元的部分	20	555
4	超过9,000元至35,000元的部分	超过7755元至27255元的部分	25	1,005
5	超过35,000元至55,000元的部分	超过27255元至41255元的部分	30	2,755
6	超过55,000元至80,000元的部分	超过41255元至57505元的部分	35	5,505
7	超过80,000元的部分	超过57505元的部分	45	13,505

个税起征点是3500，使用超额累进税率的计算方法如下：

• 缴税=全月应纳税所得额 * 税率 - 速算扣除数
• 全月应纳税所得额 =（ 应发工资 - 四金 ）- 3500
• 四金：医疗、补助医疗、失业险、公积金

如果某人的工资收入抛去四金后为5000元，他应纳个人所得税为：（5000—3500）×3%—0=45（元）

 

根据以上计算方法编写的计算脚本（VB、excel适用）

Sub Calc_Click()Dim i As IntegerDim re As Doublei = 2Do While Sheets("交税计算").Cells(i, "a").Value <> ""Call Calc(re, Sheets("交税计算").Cells(i, "a").Value)Sheets("交税计算").Cells(i, "b").Value = rei = i + 1LoopEnd Sub**********************************************************Sub Calc(ByRef re As Double, ByVal base As Double)Dim l1 As DoubleDim l2 As DoubleDim l3 As DoubleDim l4 As DoubleDim l5 As DoubleDim l6 As Doublel1 = 1500l2 = 4500l3 = 9000l4 = 35000l5 = 55000l6 = 80000If base > l6 Thenre = base * 0.45 - 13505ElseIf base > l5 Thenre = base * 0.35 - 5505ElseIf base > l4 Thenre = base * 0.3 - 2755ElseIf base > l3 Thenre = base * 0.25 - 1005ElseIf base > l2 Thenre = base * 0.2 - 555ElseIf base > l1 Thenre = base * 0.1 - 105ElseIf base > 0 Thenre = base * 0.03Elsere = 0End IfEnd Sub

转载于:https://www.cnblogs.com/dorothychai/p/4459901.html