已知税后工资求应纳税？个人所得税，求公式。

应纳税所得额＝（税后工资-费用扣除标准-速算扣除数）/（1－税率）
应纳所得税额＝应纳税所得额*适用税率-速算扣除数
不含税级距 税率（%） 速算扣除数
1 不超过475元的 5 0
2 超过475元至1825元的部分 10 25
3 超过1825元至4375元的部分 15 125
4 超过4375元至16375元的部分 20 375
5 超过16375元至31375元的部分 25 1375
6 超过31375元至45375元的部分 30 3375
7 超过45375元至58375元的部分 35 6375
8 超过58375元至70375元的部分 40 10375
9 超过70375元的部分 45 15375

应纳税所得额=月工资薪金收入-社保费、住房公积金

应纳个人所得税税额=（应纳税所得额－扣除标准2000元）*适用税率-速算扣除数

不超过500元的，税率5%，速算扣除数为0；
超过500元至2000元的部分，税率10%，速算扣除数为25
超过2000元至5000元的部分，税率15 %，速算扣除数为125
超过5000元至20000元的部分，税率20 %，速算扣除数为375
超过20000元至40000元的部分，税率25%，速算扣除数为1375
超过40000元至60000元的部分，税率30%，速算扣除数为3375
超过60000元至80000元的部分，税率35%，速算扣除数为6375
超过80000元至100000元的部分，税率40%，速算扣除数为10375
超过100000元的部分，税率45%，速算扣除数为15375

应纳税所得额＝（税后工资-费用扣除标准-速算扣除数）/（1－税率）
应纳所得税额＝应纳税所得额*适用税率-速算扣除数
不含税级距
税率（%）
速算扣除数
1
不超过475元的
5
0
2
超过475元至1825元的部分
10
25
3
超过1825元至4375元的部分
15
125
4
超过4375元至16375元的部分
20
375
5
超过16375元至31375元的部分
25
1375
6
超过31375元至45375元的部分
30
3375
7
超过45375元至58375元的部分
35
6375
8
超过58375元至70375元的部分
40
10375
9
超过70375元的部分
45
15375

'计算个人收入调节税 (Individual Income Adjustment Tax)

Function iiatax(x, y)

Dim basicnum As Integer

Dim downnum As Variant, upnum As Variant, ratenum As Variant, deductnum As Variant

If y = 0 Then

basicnum = 1600 '定义 公民个税起征点

ElseIf y = 1 Then

basicnum = 4800 '定义外国公民个税起征点

Else: basicnum = Null

End If

downnum = Array(0, 500, 2000, 5000, 20000, 40000, 60000, 80000, 100000) '定义累进区间下限

upnum = Array(500, 2000, 5000, 20000, 40000, 60000, 80000, 100000, 100000000) '定义累进区间上限

ratenum = Array(0.05, 0.1, 0.15, 0.2, 0.25, 0.3, 0.35, 0.4, 0.45) '定义累进税率

deductnum = Array(0, 25, 125, 375, 1375, 3375, 6375, 10375, 15375) '定义累进速算扣除数

If IsNumeric(x) = False Then

MsgBox ("请检查计税工资是否为数值！")

End If

If x < 0 Then

MsgBox ("计税工资为负，重新输入！")

End If

If x >= 0 And x < basicnum Then

iiatax = 0

End If

For i = 0 To UBound(downnum)

If x - basicnum > downnum(i) And x - basicnum <= upnum(i) Then

iiatax = Round((x - basicnum) * ratenum(i) - deductnum(i), 2)

End If

Next i

End Function