求助：能帮助写一个"个人所得税税率"模块马?

ccczzz

求助：能帮助写一个"个人所得税税率、速算扣除数"的模块马?谢谢

方漠

个税等级 应税工资范围 个税税率 个税扣除
1.00        0          0.00%   ￥0.00
2.00        <=500      5.00%   ￥0.00
3.00        <=2000    10.00%   ￥25.00
4.00        <=5000    15.00%   ￥125.00
5.00      <=20000     20.00%   ￥375.00
6.00      <=40000     25.00%   ￥1,375.00
7.00      <=60000     30.00%   ￥3,375.00
8.00      <=80000     35.00%   ￥6,375.00
9.00      <=100000    40.00%   ￥10,375.00
10.00     >100000     45.00%   ￥15,375.00

将以上数据作为一个表保存到数据库中。根据应税工资的多少来确定纳税的等级，然后用查询计算。以下是代码：

Sub JiShuanYingShuiGongZi()
'计算员工应税工资和个税等级.
'如果 职员类别 = "外籍"  则
'应税工资 = 应发工资 - 个人养老 - 个人医疗 - 4000
'否则
'应税工资 = 应发工资 - 个人养老 - 个人医疗 - 1600
'如果完

Dim Db As Database
Dim CX As Recordset
Set Db = CurrentDb
Dim I As Integer
Call ReadSystemPara
Set CX = Db.OpenRecordset("计算员工应发工资")
CX.MoveFirst
Do Until CX.EOF
CX.Edit
If CX!职员类别 = "外籍" Then
CX!应税工资 = CX!应发工资 - CX!个人养老 - CX!个人医疗 - ForeignTax
Else
CX!应税工资 = CX!应发工资 - CX!个人养老 - CX!个人医疗 - ChineseTax
End If
CX.Update
CX.MoveNext
Loop

'计算员工个税等级.
'个税等级 应税工资范围  税率    扣除
'1         0             0.00%   ￥0.00
'2      <=500          5.00%   ￥0.00
'3      <=2000        10.00%  ￥25.00
'4      <=5000        15.00%  ￥125.00
'5      <=20000       20.00%  ￥375.00
'6      <=40000       25.00%  ￥1,375.00
'7      <=60000       30.00%  ￥3,375.00
'8      <=80000       35.00%  ￥6,375.00
'9      <=100000      40.00%  ￥10,375.00
'10     >100000       45.00%  ￥15,375.00
CX.MoveFirst
Do Until CX.EOF
CX.Edit
Select Case CX!应税工资
       Case Is <= 0
       CX!个税等级 = 1
       Case Is <= 500
        CX!个税等级 = 2
       Case Is <= 2000
        CX!个税等级 = 3
       Case Is <= 5000
        CX!个税等级 = 4
       Case Is <= 20000
        CX!个税等级 = 5
       Case Is <= 40000
         CX!个税等级 = 6
       Case Is <= 60000
         CX!个税等级 = 7
       Case Is <= 80000
         CX!个税等级 = 8
       Case Is <= 100000
         CX!个税等级 = 9
       Case Is > 100000
         CX!个税等级 = 10
End Select
      
CX.Update
CX.MoveNext
Loop
CX.Close
MsgBox "[应税工资]和[个税等级] 系统已计算完毕!", vbInformation
End Sub

ccczzz

谢谢