浅谈考勤处理——那些年，我们一起打过的卡

roych

很久没发帖了。有没有人想我呀？
当我拿到这个附件时，忽然想起了在工厂上班的那一段青葱岁月。
那时候拿着2500一个月的薪水乐呵乐呵的，根本不知什么是愁滋味。那时候，接班的大妈一直看我不顺眼。她是从一线员工升上来的，觉得经验比我足，工资却没有我的高，心里不服气那是肯定的，所以横挑鼻子竖挑眼。
刚毕业的我没计较，心想，自己是新人，带着的员工也是新人，像现在的“反思党”一样，天天反思自己的不足。可是啊，怎么可能每个都是我的问题呢？

唯一没被挑毛病的，估计也就是做考勤了吧。毕竟各个班组都是做自己的。那时候，考勤格式大概长成这样：

用countif函数统计第2行的上班天数（中夜班有补贴）和假期。根据第2、3行统计加班小时数。如果第1行是上班，则第2行的小时数算班后加班（1.5倍）；休息日、法定假期加班按相应倍数计算。这种统计其实还算比较好的，毕竟都是纸卡。

后来换了指纹打卡，问题才刚刚开始。Excel其实也还好，但Access就有些麻烦了。比如，夜班通常会跨日。当日23:45上班，翌日7：30下班。如果考勤机分上下班，隔天显然会错位；如果不分吧，日期也不是同一天，同样要处理。

现在，我们就来看看如何解决这个问题。思路上，首先要把上下班的时间统一成一列，然后假定第一次打的都是上班卡，第二次才是下班卡（这里假定重复打卡的数据已经处理完毕）。接下来就可以根据奇偶行数来确定上下班时间，从而统计出上班时长。

在SQL Server上，可以通过lag或者row_number()等函数算出奇偶。但这两个函数Access都没有。因此，需要用到VBA。
按惯例，先贴代码：

1. Sub Update_Off()
   
2.     Dim rst1 As New ADODB.Recordset
   
3.     Dim rst2 As New ADODB.Recordset
   
4.     Dim i As Long
   
5.    
   
6.     rst1.Open "select * from 考勤汇总", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
7.     rst2.Open "select * from 考勤总表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
8.    
   
9.     i = 1
   
10.     Do Until rst1.EOF
    
11.         If i Mod 2 = 1 Then '默认第一次打卡为上班
    
12.             rst2.AddNew
    
13.             rst2("设备工号") = rst1("设备工号")
    
14.             rst2("员工工号") = rst1("员工工号")
    
15.             rst2("姓名") = rst1("姓名")
    
16.             rst2("部门") = rst1("部门")
    
17.             rst2("考勤日期") = rst1("考勤日期")
    
18.             rst2("上班时间") = rst1("出勤时间")
    
19.         Else
    
20.             rst2("下班时间") = rst1("出勤时间")
    
21.         End If
    
22.             rst2.Update
    
23.             i = i + 1
    
24.         rst1.MoveNext
    
25.     Loop
    
26.     rst2.Close
    
27.     rst1.Close
    
28. End Sub

复制代码

代码比较简单。大致是先打开数据源表（考勤汇总）和目标表（考勤总表），然后定义一个变量i，通过i递增，然后用mod函数取模（即除以2的余数是否等于1）来确定是新增数据还是修改数据。这里就不详细展开说明了（有疑惑的版友，回帖后我再解析）。附件如下：

tmtony

好久没看你上来，考勤计算 比人事要复杂，特别是一些有很多班次及复杂跨天班次。有进算破脑袋，曾经为一个工厂做过，现在还在不断修改

accben

以前开发碰到过此类问题。
公司上班班次时间表：
白班：8：00 - 16：30     
中班：16：30 - 次日0：00   
夜班：次日0：00 - 次日8：00

这时，最好增加一个排班表，批量设置好每位员工的每一天班次。

考虑到有加班的情况，因此在判断考勤（迟到、早退、旷工），搜索员工打卡记录时，应在员工所在班次的时间范围之内，前后各再增加4h的时间。
依据员工班次前后各再加4h时间范围搜索到的打卡记录：
用第1条记录判断是否迟到
用最后1条记录判断是否早退
没有记录的判断为旷工。
当然也会出现有又迟到又早退的情况。

以上，仅仅是思路。

smallbighead

认真学习