个人所得税计算方法

级数	全月应纳税所得额（含税级距） 【税率资讯网提供】	全月应 纳税所得额 （不含税级距）	税率(%)	速算扣除数
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