"某企业财务需要为员工计算员工工资并将数据导出给银行，工资的计算首先需要参考员工的缺勤率和工作绩效，具体规则为：基本工资*(1-缺勤率+绩效) 而后再缴纳个人所得税，个税的计算方法为，以所得工 .."

massslow 北京
乾学院 40 号会员
2 回帖 • 175 浏览 • 1 个月前

根据考勤和绩效信息计算应发工资

计算＆AI

某企业财务需要为员工计算员工工资并将数据导出给银行，工资的计算首先需要参考员工的缺勤率和工作绩效，具体规则为：

基本工资*(1-缺勤率+绩效)

而后再缴纳个人所得税，个税的计算方法为，以所得工资减去 2000 元的免税部分，剩余的部分以超额累计的方法计算，即分段计税，每段的税率如下表：

Levels	Containing tax grade difference	Tax rate(%)	Tax reduction factor
1	≤500	5	0
2	500-2000	10	25
3	2000-5000	15	125
4	5000-20000	20	375
5	20000-40000	25	1375
6	>40000	30	3375

如员工收入 6000 元，减去 2000 元，剩余的 4000 元为应缴税部分，按分段计税的方法，应缴税额为：

500*5%+1500*10%+2000*15%=475 元

也可以使用速算扣除数计算：

4000*15%-125=475 元

下表是企业的员工信息表Employees.txt：

下表是员工本月的缺勤率表Absenteeism.txt，如果员工没有缺勤，则表中不会有该员工的记录：

下表是员工本月的绩效表Performance.txt，同样也不是所有员工都有绩效的：

请计算出每位员工应发的工资数额，并将结果用字符串输出，格式需为：

公司名称

TOAM=工资总额

COUT=员工人数

---------------------------------------

银行账户 | 应发金额 | 姓名

……

基于雇员表创建新的序表，保留雇员姓名、基本工资、银行账户字段，增加缺勤率、绩效、应发工资字段，其中缺勤率字段的值为从缺勤率表中获得，绩效则来源于绩效表。应发工资字段按公式计算，对于没有缺勤或绩效记录的员工，缺勤或绩效字段会为空，计算时会自动按 0 处理，正好符合我们的要求。

将税率表抄进代码，每级记录下限收入额，并转换成序表，以便计算。

为每位员工计算个税，先扣除免税额后，找出他所在的收入段，而后直接使用速算扣除数算出税额，并从工资中扣除。

然后就可以开始拼接结果了，创建一个序列，依次写入公司名、应发工资的总额、需要转账的人数和分隔线。最后循环前面的表，将记录按格式逐条添加到序列中。

	A	B	C
1	=T("Employees.txt").keys(ID)	=T("Absenteeism.txt").keys(Employee)	=T("Performance.txt").keys(Employee)
2	Salary	TaxRate	TRF
3	0	5	0
4	500	10	25
5	2000	15	125
6	5000	20	375
7	20000	25	1375
8	40000	30	3375
9	=create(Salary,TaxRate,TRF).record([A3:C8],0)
10	=A1.new(Name,B1.find(ID).Absenteeism:Absenteeism,C1.find(ID).Performance:Performance,BasePay,AccountNo,BasePay*(1-Absenteeism+Performance):SalaryPayable )
11	>A10.run(ts=SalaryPayable-2000, tr=A9.segp@r(Salary,ts), SalaryPayable= round(SalaryPayable -(ts*tr.TaxRate/100-tr.TRF),2))
12	=a=["RAQSOFT INCORPORATION"]
13	>a\|=("TOAM="/round(A10.sum(SalaryPayable),2))
14	>a\|=("COUT="/A10.count())
15	>a\|="---------------------------------------"
16	>A10.run(a\|=(AccountNo/"\|"/SalaryPayable/"\|"/Name))
17	=a