工资管理系统数据图_工资管理系统实训报告_工资管理系统需求规格说明书(37)

+ Text1(0) + "", cnn, adOpenKeyset, adLockOptimistic If RS2.RecordCount >

0 Then Text1(17) = RS2.Fields(0) RS2.Close Else RS2.Close End If 而应发金额合计、应扣金额合计、工资合计和实发工资，都是对输入的数据进行数值变 换来实现计算的，相关代码分析如下：

Text1(15).text = Val(Text1(5)) + Val(Text1(6)) + Val(Text1(7)) + Val(Text1(8)) Text1(18).text = Val(Text1(9)) + Val(Text1(10)) + Val(Text1(11)) + Val(Text1(12)) + Val(Text1(13)) Text1(16).text = Val(Text1(14)) + Val(Text1(15)) - Val(Text1(17)) - Val(Text1(18)) Text1(20).text = Val(Text1(16)) - Val(Text1(19)) 然个人所得税的计算， 必须根据国家税局颁发的个人所得税率表来进行计算的， “个 有关 人所得税”方法如下：

使用职员所有的工资合计的结果“工资合计”来计算，超过 1600 元以上的部分征税，一般 使用分级超额累积税率。税率表如下：

工资级数 1 2 3 4 5 6 7 8 工资底限 0 500 2000 5000 20000 50000 80000 100000 工资上限 500 2000 5000 20000 50000 80000 100000 3.402823E38 税率 5% 10% 15% 20% 25% 30% 40% 50%根据税率表，利用 IF 条件从句对工资合计的数据进行判断，然后将对应的数据进行计算。

具体的设计代码如下：

If Val(Val(Text1(16)) - 1600) <= 0 Then Text1(19).text = 0 ElseIf Val(Val(Text1(16)) - 1600) <= 500 Then Text1(19).text = Val(Val(Text1(16)) - 1600) * 0.05 ElseIf Val(Val(Text1(16)) - 1600) <= 2000 Then Text1(19).text = Val(Val(Text1(16)) - 1600) * 0.127ElseIf Val(Val(Text1(16)) - 1600) <= 5000 Then Text1(19).text = Val(Val(Text1(16)) - 1600) * 0.15 ElseIf Val(Val(Text1(16)) - 1600) <= 20000 Then Text1(19).text = Val(Val(Text1(16)) - 1600) * 0.2 ElseIf Val(Val(Text1(16)) - 1600) <= 50000 Then Text1(19).text = Val(Val(Text1(16)) - 1600) * 0.25 ElseIf Val(Val(Text1(16)) - 1600) <= 80000 Then Text1(19).text = Val(Val(Text1(16)) - 1600) * 0.3 ElseIf Val(Val(Text1(16)) - 1600) <= 100000 Then Text1(19).text = Val(Val(Text1(16)) - 1600) * 0.4 Else Text1(19).text = Val(Val(Text1(16)) - 1600) * 0.5 End If （2）工资发放查询模块设计 该模块主要是对工资发放管理的信息表进行查询功能， 对应查询出的数据进行汇总， 并 且还具有打印输入功能。

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-31446-37.html