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