[已解决]个税所得税宏问题

月光不合

'计算个人收入调节税 (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 = 2000 '定义中国公民个税起征点
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

此宏是2000起征点的个税,请高手将宏改成3500起征点的,谢谢!

最佳答案

月排行榜 / 总排行榜

宝宝熊

2011-10-18 14:27

'计算个人收入调节税 (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 = 3500 '定义中国公民个税起征点
ElseIf y = 1 Then
basicnum = 4800 '定义外国公民个税起征点
Else: basicnum = Null
End If
downnum = Array(0, 1500, 4500, 9000, 35000,55000, 80000) '定义累进区间下限
upnum = Array(1500, 4500,9000, 35000, 55000, 80000, 10000000000) '定义累进区间上限
ratenum = Array(0.03, 0.1, 0.2, 0.25, 0.3, 0.35, 0.45) '定义累进税率
deductnum = Array(0, 105, 555, 1005, 2755, 5505, 13505) '定义累进速算扣除数
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

跳转到最佳答案楼层

月光不合

顶下,期待答案!

宝宝熊

'计算个人收入调节税 (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 = 3500 '定义中国公民个税起征点
ElseIf y = 1 Then
basicnum = 4800 '定义外国公民个税起征点
Else: basicnum = Null
End If
downnum = Array(0, 1500, 4500, 9000, 35000,55000, 80000) '定义累进区间下限
upnum = Array(1500, 4500,9000, 35000, 55000, 80000, 10000000000) '定义累进区间上限
ratenum = Array(0.03, 0.1, 0.2, 0.25, 0.3, 0.35, 0.45) '定义累进税率
deductnum = Array(0, 105, 555, 1005, 2755, 5505, 13505) '定义累进速算扣除数
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

wayy

学习楼上的．
其实使用公式比代码应该简单一些．

月光不合

谢谢宝宝熊老师!!!