个人所得税计算方法

最新推荐文章于 2021-11-20 08:08:42 发布

weixin_30730053

最新推荐文章于 2021-11-20 08:08:42 发布

阅读量172

点赞数

原文链接：http://www.cnblogs.com/dorothychai/p/4459901.html

版权

级数	全月应纳税所得额（含税级距）【税率资讯网提供】	全月应纳税所得额（不含税级距）	税率(%)	速算扣除数
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 Integer
Dim re As Double
i = 2
Do While Sheets("交税计算").Cells(i, "a").Value <> ""
    Call Calc(re, Sheets("交税计算").Cells(i, "a").Value)
    Sheets("交税计算").Cells(i, "b").Value = re
    i = i + 1
    Loop
End Sub
**********************************************************
Sub Calc(ByRef re As Double, ByVal base As Double)
Dim l1 As Double
Dim l2 As Double
Dim l3 As Double
Dim l4 As Double
Dim l5 As Double
Dim l6 As Double
l1 = 1500
l2 = 4500
l3 = 9000
l4 = 35000
l5 = 55000
l6 = 80000
If base > l6 Then
re = base * 0.45 - 13505
ElseIf base > l5 Then
re = base * 0.35 - 5505
ElseIf base > l4 Then
re = base * 0.3 - 2755
ElseIf base > l3 Then
re = base * 0.25 - 1005
ElseIf base > l2 Then
re = base * 0.2 - 555
ElseIf base > l1 Then
re = base * 0.1 - 105
ElseIf base > 0 Then
re = base * 0.03
Else
re = 0
End If
End Sub