Office中国论坛/Access中国论坛

标题: [原创]好的代码写不出来吗? [打印本页]

作者: jia_boy 时间: 2004-12-2 04:43
标题: [原创]好的代码写不出来吗?
请问各位高手，这些公式在窗体（带有这些控件）中怎么用代码写出来：：：

[迟到早退] [补料扣款] [工衣费] [水电费] [补办卡牌费] [优秀奖] [计件工资] [补贴] [办证费] [罚款]

  1，出勤天数:Round([正班工时]/8)       2，工伤天数:Round([工伤工时]/8)          3，时工资率:Round([日薪]/8)

  4，加班工资: Round([时工资率]*[加班工时])                   5，工伤工资:Round([时工资率]*[工伤工时])

  6，旷工金额: Round([旷工工时]*[时工资率]*3)

  7，全勤奖: IIf([旷工工时]=0,IIf([正班工时]>=224,30,0),0)

  8，超勤奖: IIf([工作性质]="技术职员" & "日薪人员" & "车间员工",0,IIf([正班工时]>=224,([正班工时]-224)*([核算工资]/240),0)

  9，扣住宿费: IIf([是否住宿]=1,[补住宿费],IIf([出勤天数]+[工伤天数]>=15,11,IIf([出勤天数]+[工伤天数]>=10,6,IIf([出勤天数]+[工伤天数]<10,1))))



  10，补住宿费: IIf([是否住宿]=0,[扣住宿费],IIf([出勤天数]+[工伤天数]>=20,10,IIf([出勤天数]+[工伤天数]>=10,5,IIf([出勤天数]+[工伤天数]<10,0))))



  11，扣伙食费: IIf([是否退伙]=1,[补伙食费],IIf([工作性质]="车间员工",([出勤天数]+[工伤天数])*3,0))



  12，补伙食费: IIf([是否退伙]=0,[扣伙食费],IIf([工作性质]="车间员工",0,IIf([出勤天数]+[工伤天数]>=25,[退伙标准],IIf([出勤天数]+[工伤天数]<25,[退伙标准]/30*([出勤天数]+[工伤天数])))))

（日薪: IIf([计算日期]>[试用期至],[标准工资]/28,IIf([计算日期]<[试用期至],[试用期工资]/28))）

  13，日薪：Round([核算工资]/28)



  14，正班工资：IIf([工作性质]="管理人员" & "月薪人员" & "技管人员" & "技术工人",IIf([正班工时]<224,([正班工时]*[时工资率]),[核算工资])，([正班工时]*[时工资率]))



  15，应发工资：[正班工资]+[加班工资]+[全勤奖]+[超勤奖]+[补住宿费]+[补伙食费]+[优秀奖]+[计件工资]+[补贴]+[工伤工资]

  16，扣除合计：[旷工金额]+[扣住宿费]+[扣伙食费]+[迟到早退]+[补料扣款]+[工衣费]+[水电费]+[补办卡牌费]+[办证费]+[罚款]



  17，实发工资：[应发工资]+[扣除合计]

作者: 软件下载 时间: 2004-12-2 19:10
这么多啊，用.value属性不行吗？

作者: hi-wzj 时间: 2004-12-3 03:52
在查询中完成运算：其公式就是您打出的。（将：改为:）

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)