快生活 - 生活常识大全

基于数据处理技术的考勤加班时间统计

⇨⇦
　　李鼎文 徐昌欣 郭伟
　　中图分类号：C37 文献标识：A 文章编号：1674-1145（2018）8-203-04
　　摘要 本文介绍了某公司考勤加班统计的规则、原始考勤数据进行预先数据处理的方法，文中依据考勤规则进行了统计，介绍了相应的统计代码，并通过Ⅶ编写的程序实现自动统计，最后文章介绍了应用效果。
　　关键词 考勤管理 加班时间统计 数据处理 VB
　　目前，企业在进行考勤管理的过程中，一般采用了考勤机来对考勤进行记录，并进行一系列考勤情况统计，比如迟到早退人员统计、旷工人数统计、请假情况统计、加班情况统计等，其中加班情况统计是经常进行的一种。在有的中小企业中，只有考勤机记录的初始记录，没有进一步的考勤统计分析软件，怎样利用考勤初始记录，进行考勤加班统计，是中小企业常常面对的问题。本人在工作中，利用VB编写小程序，通过对考勤初始数据的进行预处理，然后对加班情况进行统计，取代了手工进行考勤加班计算的状况，减轻了考勤统计人员的工作量，并提高了工作的准确性。本人将考勤加班统计的方法、部分源码及计算过程整理出来，以飨读者。
　　一、考勤加班统计规则的设定
　　为方便进行考勤管理，必须首先设定考勤规则，让员工有考勤依据，方能准确的打卡，知道自己的考勤情况。某企业中，对考勤加班统计规则设计如下：
　　1.平时上班时间，每天5点半以后算下班，6点之后刷卡算加班。
　　2.节假日全天可算加班。
　　3.平时上班时间，加班超过2.5个小时以上，给予一次餐补。
　　4.节假日加班，一次加班时间超过3个小时，给予一次餐补，7小时以上，两次餐补封顶。二、考勤原始数据处理某企业中，考勤刷卡的原始数据如下图所示，该数据是由考勤机的记录导出的excel数据。
　　原始数据包括部门、姓名、考勤号、刷卡时间、记录状态、机器号等六个数据项。在进行考勤加班统计之前，需要对原始数据进行三个方面的预处理：1.去掉一次刷卡记录下来的多次刷卡记录。2.标注是正常上班时间还是节假日。3.取出正常上班时间超出18：00的刷卡数据，做為加班统计的依据。
　　1.去掉多次刷卡数据，将刷卡数据间隔小于5分钟的数据去掉，即原始数据的间隔小于0.08的，删除后面的数据。代码如下：
　　For i=1 To totalnum-1 Step 1
　　If sheet ds.Cells（i，3）=sheet ds.Cells（i+1，3）And Year（sheet ds.Cells（i，4））=Year（sheet ds.Cells（i+1，4））And Month（sheet ds.Cells（i，4））=Month（sheet ds.Cells（i+1，4））And Day（sheet ds.Cells（i，4））=Day（sheet ds.Cells（i+1，4））And Round（（Hour（sheet ds.Cells（i+1，4））-Hour（sheet ds.Cells（i，4））+（Minute（sheet ds.Cells（i+1，4））-Minute（sheet ds.Cells（i，4）））/6f）， 2）<=0.08 Then
　　p=p+1
　　Else
　　sheet_ds1.Cells（i-p，1）=sheet ds.Cells（i，2）
　　sheet_ds1.Cells（i-p，2）=sheet ds.Cells（i，4）
　　sheet_ds1.Cells（i-p，3）=sheet ds.Cells（i，5）
　　shret_ds1.Cells（i-p，4）=sheet ds，Cells（i，3）
　　p=0
　　2.对原始数据标注是平时上班时间还是节假日。首先通过人机界面确定哪些是休息日，再逐一标注，如果是平时刷卡数据第五列标注为0，如果是节假日刷卡数据第五列标注为1。代码如下：
　　Do While sheet so.Cells（totalnum，3） 统计记录条数
　　totalnum=totalnum+1
　　Loop
　　totalnum=totalnum+1
　　For i=2 To tatalnum Step 1
　　sheet ds.Cells（i-1，1）=sheet so.Cells（i，1）
　　sheet ds.Cers（i-1，2）=sheet so.Cells（i，2）
　　sheet ds.Cells（i-1，3）=sheet so.Cells（i，3）
　　sleet ds.Cells（i-1，4）=sheet so.Cells（i，4）
　　sheet ds.Cells（i-1，5）=0
　　Forj=1 Tok-1Step 2
　　If Day（sheet so.Cells（i，4）=a（j）Then
　　sheet ds.Cells（i-1，5）=1
　　End If
　　Next j
　　Next i
　　3.取出正常上班时间超出18：00的刷卡数据。
　　If sheet_ds1. Cells（i，3）=0 And Hour（sheet_ds1.Cells（i，2））>=18Then ＂平时刷卡时间过了18：00的记录
　　sheet ds2.Cells（i-p，1）=sbeet_ds1.Cells（i，1）
　　sheet ds2.Cells（i-p，2）=sheet_ds1.Cells（i，2）
　　sheet ds2.Cells（i-p，3）=sheet_ds1.Cells（i，3）
　　sheet ds2.Cells（i-p，7）=sheet_ds1.Celis（i，4）
　　totalnum1=totalnum1+1
　　Else
　　p=p+1
　　End If
　　End If
　　Next i
　　三、依據统计规则对预处理后的数据进行计算
　　1.以考勤号为关键字，统计当日休息时段刷卡的次数，及将刷卡次数累加计入第四列。
　　For i=1 To totalnum1 Step 1 ＂计算打卡记录数
　　If（Day（sheet_ds 2.Cells（i，2）））=（Day（sheet_ds2.Cells（i+1，2）））And（Manth（sheet_ds2.Cells，2）））=（Month（sheet_ds2.Cells（i+1，2）））And（Year（sheet_ds2.Cells（i，2）））=（Year（sheet_ds2.Cells（i+1，2）））And（sheet_ds2.Cells（i，7）=sheet_ds2.Cells（i+1，7））Then
　　b=b+1
　　Else
　　sheet ds2.Cells（i，4）=b
　　b=1
　　End If
　　Next i
　　2.依据刷卡次数区分奇数次和偶数次刷卡，并按平时加班及休息日加班分别对加班时间进行统计，并计算餐补。这一共有三种情况：
　　（1）正常上班时间、休假时间的偶数次打卡，此时计算两次刷卡记录之差即为加班时间。然后分别按照正常上班时间和休假时间的餐补计算规则，统计餐补数量即可。即正常上班时加班时间超过2.5小时，给予一次餐补，休假时间一次加班时间超过3小时，给予一次餐补，7小时以上给予两次餐补，将餐补结果计入第6列。
　　For i=1 To totalnum1 Step 1 ＂统计加班时间If sheet_ds2.Cells（i，4）And（sheet_ds2.Cells（i，4）Mod2=0）Then ＂正常上班时间、休假时间，偶数次打卡
　　sheet ds2.Cells（i，5）=0
　　sheet ds2.Cells（i，6）=0
　　For j=0 To sheet ds2.Cells（i，4）-2 Step 2
　　sheet_ds2.Cells（i，5）=Round（（sheet_ds2.Cells（i，5）+Hour（sheet_ds2.Cells（i-j，2））-Hour（sheet_ds2.Cells（i-j-1，2））+（Minute（sheet_ds2.Cells（i-j，2））-Minute（sheet_ds2.Cells（i-j-1，2）））/60），2）
　　If Round（（HOUr（sheet_ds2.Cells（i-j，2））-Hoor（sheet_ds2.Cells（i-j-1，2））+（Minute（sheet_ds2.Cells（i-j，2））-Minute（sheet_ds2.Cells（i-j-1，2）））/60），2）>2.5 Andsheet ds2.Cells（i，3）=0 Then ＂统计餐补
　　sheet_ds2.Cells（i，6）=i
　　Else
　　If Round（（Hour（sheet_ds2.Cells（i-j.2））-Hour（sheet_ds2.Cells（i-j-1，2））+（Minute（sheet_ds2.Cells（i-j，2））-Minute（sheet_ds2.Cells（i-j-1，2）））/60），2）>=7 Andsheet_ds2.Cells（i，3）=1 Then
　　sheet_ds2.Cells（i，6）=2
　　End If
　　If Round（（Hour（sheet_ds2.Cells（i-j，2））-Hour（sheet_ds2.Cells（i-j-1，2））+（Minute（sheet_ds2.Cells（i-j，2））-Minute（sheet_ds2.Cells（i-j-1，2）））/60）， 2）>3 AndRound（（Hour（sheet_ds2.Cells（i-j， 2））-Hour（sheet_ds2.Cells（i-j-1，2））+（Minute（sheet_ds2.Cells（i-j，2））-Minnee（sheet_ds2.Cells（i-j-1， 2）））/60），2）<7 Andsheet_ds2.Cells（i，3）=1 And sheet_ds2.Cells（i，6）<2 Then＂统计餐补
　　sheet_ds2.Cells（i，6）=sheet_ds2.Cells（i，6）+1
　　End If＂
　　End If.
　　Next j
　　（2）正常上班时间奇数次打卡，此时计算最后一次刷卡与17：30之差即为加班时间，然后依据加班时间和餐补规则计算餐补。
　　If sheet_ds2.Cells（i，4）And sheet_ds2.Cells（i，3）=0 And（sheet_ds2.Cell（i，4）Mod2=1）Then＂ 正常上班时间，奇数次打卡
　　sheet_ds2.Cells（i，5）=0
　　sheet_ds2.Cells（i，6）=0
　　sheet_ds2.Cells（i，5）=Round/（Hour（sheet_ds2.Cells（i-sheet_ds2.Cells（i，4）+1，2））-17+（Minute（sheet_ds2.Cells（i-sheet_ds2.Cells（i，4）+1，2））-30）/60），2）
　　If sheet_ds2.Cells（i，5）>2.5 Then＂統计餐补
　　sheet_ds2.Cells（i，6）=1
　　End If
　　If shell_ds2.Cells（i，4）>1 Then
　　For j=0 To sheet_ds2.Cells（i，4）-3 Step 2
　　sheet_ds2.Cells（i，5）=Round（（sheet_ds2.Cells（i，5）+Hour（sheet_ds2.Cells（i-j，2））-Hour（sheet-ds2.Cells（i-j-1，2））+（Minute（sheet_ds2.Cells（i-j，2））-Minute（sheet_ds2.Cells（i-j-1， 2）））/60），2）
　　If Round（（Hour（sheet_ds2.Cells（i-j，2））-Hour（sheet_ds2.Cells（i-j-1，2））+（Minute（sheet_ds2.Cells（i-j，2））-Minute（sheet_ds2.Cells（i-j-1，2）））/60），2）>2.5 Then统计餐补
　　sheet_ds2.Cells（i，6）=1
　　End If
　　Next j
　　End If
　　End If
　　（3）休假时间奇数次打卡，此时计算第一次刷卡与最后一次刷卡之差即为加班时间，然后依据加班时间和餐补规则计算餐补即可。
　　If sheet_ds2.Cells（i，4）And sheet_ds2.Cells（i，3）=1 And（sheet_ds2.Cells（i，4）Mod 2=1）Then ＂休假时间，奇数次打卡
　　sheet_ds2.Cells（i，6）=0
　　sheet_ds2.Cells（i，5）=Round（（Hour（sheet_ds2.Cells（i，2））-Hour（sheet_ds2.Cells（i-sheet_ds2.Cells（i，4）+1，2））+（Minute）sheet_ds2.Cells（i，2））-Minute（sheet_ds2.Cells（i-sheet_ds2.Cells（i，4）+1，2）））/60），2）
　　If sheet_ds2.Cells（i，5）>3 And sheet_ds2.Cells（i，5）<7 And sheet_ds2.Cells（i，6）<2 Then ＂统计餐补
　　sheet_ds2.Cells（i，6）=sheet_ds2.Cells（i，6）+1
　　Else
　　If sheet_da2.Cells（i，5）>=7 Then
　　sheet_ds2.Cells（i，6）=2
　　End If
　　End If
　　End If
　　End If
　　Next i
　　四、依据得到的结果，制作报表计算每日加班时间和当月加班总时间，及每日餐补数和该月餐补数。程序如下：
　　pk=2
　　For i=1 To totalnum1 Step 1＂制作报表
　　If sheet ds2.Cells（i，4）Then
　　sheet_ds3.Cells（pk，1）=sheet_ds2.Cells（i，1）
　　sheet_ds3.Cells（pk，2）=sheet_ds2.Cells（i，7）
　　sheet_ds3.Cells（pk，3）=DateSerial（Year（sheet_ds2.Cells（i，2）），Month（sheet_ds2.Cells（i，2）），Day（sheet_ds2.Cells（i，2）））
　　sheet_ds3.Cells（pk，4）=sheet-ds2.Cells（i，5）
　　sheet_ds3.Cells（pk，5）=sheet_ds2.Cells（i，6）
　　pk=pk+1
　　End If
　　Next i
　　totaladd=sheet_ds3.Cells（2，4）
　　totalcount=sheet_ds3.Cells（2，5）
　　For i=2 To pk+1 Step1
　　if（sheet_ds3.Celts（i，2）=sheet_ds3.Cells（i+1，2））Then
　　totladd=tataladd+sheet_ds3.cells（i+1，4）
　　totalcount=totalcount+sheet_ds3.Cells（i+1，5）
　　Else
　　sheet_ds3.Cells（i，6）=totaladd
　　sheet_ds3.Cells（i，7）=totalcount
　　totaladd=sheet_ds3.Cells（i+1，4）
　　totalcount=sheet_ds3.Cells（i，1，5）
　　End If
　　Next i
　　End If
　　五、运行效果
　　（一）程序界面
　　通过人工输入休息日，来区分正常上班时间和节假日日期，点击加班统计即可进行统计计算。
　　1.统计过程。
　　通过不断建立Worksheet，逐层递进得进行计算，最后得到最后的统计结果。
　　（1）标注是平时工作日还是节假日。
　　（2）去掉时间间隔小于5分钟的数据并取出正常工作日18：00以后的数据。
　　（3）计算当日刷卡次数，并统计加班时间及餐补。
　　（4）最终统计结果。
　　六、应用效果
　　该统计软件已经在某公司稳定运行了一段时间，减轻了考勤统计人员的工作量，提高了统计的准确性，保障了公司的考勤管理工作的稳定运行，取得了较好的管理效能。
　　参考文献：
　　[1]唐勇.RFID身份识别考勤系统设计[J].2013（6）.
　　[2]刘宇.基于WEB的企业定制考勤系统的设计与实现[J].2013（11）.
　　[3]杨洋.基于-NET的人事考勤管理系统的设计与开发[J].2011（6）.
网站目录投稿：雁蓉