有问题的个人所得税计算函数VBA代码

jeep_driver

下面是我从网上搜索的个人所得税计算函数VBA代码，我自己已经分析过并且修改到自己认为正确的。

Function mytax(x, y)
Dim basicnum As Double, k As Double
Dim 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
k = x - basicnum

upnum = Array(1500, 4500, 9000, 35000, 55000, 80000, 1000000000) '定义累进区间上限
ratenum = Array(0.03, 0.1, 0.2, 0.25, 0.3, 0.35, 0.45) '定义累进税率
deductnum = Array(0, 105, 555, 1005, 2755, 5055, 13505) '定义累进速算扣除数

If k <= 0 Then
   mytax = 0
Else:
   For i = 0 To UBound(upnum)
       If k <= upnum(i) Then
          mytax = Round(k * ratenum(i) - deductnum(i), 2)
          Exit For
       End If
   Next i

End If

End Function

jeep_driver

但是测试边界的时候发现问题：
工资额为58501-83500计算出来的个人所得税是错误的。
不知道问题在哪里？

jeep_driver

也就是55000-80000的那段（税率35%）计算不正确。

foodorwater

deductnum = Array(0, 105, 555, 1005, 2755, 5505, 13505)
倒數第二個累进速算扣除数錯誤

jeep_driver

foodorwater 发表于 2012-8-29 13:45
deductnum = Array(0, 105, 555, 1005, 2755, 5505, 13505)
倒數第二個累进速算扣除数錯誤

谢谢！我没有注意到哦。。。