多条记录取最近日期的一条_Excel VBA：基于员工打卡记录的考勤数据统计

微信公众号：金融数学
使用VBA做一个基于员工打卡记录的考勤数据分析工具;

1应用场景

某公司通过门禁系统记录了每位员工上下班打卡时间，现在需要对一段特定时间内员工出勤情况进行统计分析，包含加班时间（工作日和非工作日、早加班和晚加班）、迟到早退、缺勤天数等，同时要将员工请休假记录一并汇总。

2员工打卡记录规则

1.每位员工打卡记录分别保存在一个工作簿中；
2.每条打卡记录包含姓名、打卡日期（哪一天）、打卡时间（几点几分）三个要素；
3.同一天至多有两条打卡记录，即上班打卡和下班打卡，但可能因为缺勤、系统故障等因素导致只有一条打卡记录或者没有打卡记录；
4.一条完整的打卡记录应包含打卡日期和打卡时间，对只有打卡日期没有具体打卡时间的记录，视作无效打卡记录；
5.考虑节假日和补班等因素，对于周六日补班的，视为工作日。

3情景分析

假设某位员工打卡记录如下：

可以看到，该员工打卡记录有如下特点：

√1月1日有两条完整的打卡记录，但当天为元旦节假日，应统计为节假日加班，节假日加班天数计算一天，且有两条完整打卡记录，可以统计具体节假日加班时间；

√1月2日为工作日，因只有一条不完整打卡记录，打卡时间缺失，视为无效记录，故应统计缺勤一天；

√1月3日为工作日，但只有一条完整打卡记录（下班打卡），另一条打卡记录缺失打卡时间（上班打卡），因保留一条完整打卡记录，故不计算缺勤，可以正常统计工作日晚加班时间和是否早退，但无法统计是否迟到，也无法统计早加班时间；

√1月4日为周末，但只有一条完整打卡记录，加班天数可以计算一天，但是因为只有一条完整打卡记录，无法统计具体节假日加班时间；

√1月5日为周末，且无打卡记录，无需处理；

√1月6日为工作日，且有两条完整打卡记录，可以正常计算工作日早晚加班情况和迟到早退情况；

√1月7日为工作日，但无打卡记录，故计算缺勤一天；

√……

√1月19日虽然为周末，但因为春节放假调休原因，当天补班，故应当按照工作日统计考勤数据。

4实现思路

4.1员工考勤数据统计表

如下表，需要统计的员工考勤数据包含：工作日早晚加班时间、节假日加班时间、节假日加班天数、工作日缺勤天数、迟到天数、早退天数等。

4.2运行设置

1.支持指定统计日期，比如统计2020年1月份员工考勤数据，那么就需要将开始日期设置为2020年1月1日，结束日期设置为2020年1月31日；
2.支持是否汇总请休假记录；
3.支持指定早加班和晚加班时间，比如指定早上8:00前打卡才算早加班时间，晚上18:00后打卡才算是晚加班。

4.3自定义函数实现判断某天是否为工作日

对于一些特殊的日期，比如2020年1月1日，当天为周三，但是因为是元旦，所以当天为节假日；再比如2020年1月19日，当天为周日，但因为春节放假安排，当天补班，所以当天应为工作日。

因为没有找到一个函数可以直接进行以上判断，所以只能自定义一个函数实现。

对于这一类特殊日期，需要进行单独指定，例如将2020年1月份特殊日期梳理如下：

我们基于NETWORKDAYS函数构造了一个自定义行数。先了解下NETWORKDAYS函数：

NETWORKDAYS(开始日期, 结束日期, [要除去的节假日])

NETWORKDAYS函数返回两个日期之间的工作日天数（除去周末），支持去除指定日期（可以引用一个单元格区域）。

使用时，将开始日期和结束日期设置为同一天，如果该日期不是周末，且不在指定的节假日范围内，则返回值为1；如果该日期为周末，则返回值为0.

自定义一个判断是否为工作日的函数IsWorkday(Dat As Date)，输入指定日期，如果是工作日，则返回True，否则返回False。

自定义函数工作机制：

1.输入一个日期；
2.查询该日期是否为补班日，如果为补班日，则该日期为工作日，函数返回True，结束，否则继续下一步；
3.利用NETWORKDAYS函数判断，函数第三个参数中引用指定的非周末的特殊节假日，如果返回值为1，则该日期既不是周末也不是指定的非周末的特殊节假日，函数返回True；如果返回值为0，则该日期为周末或者指定的非周末的特殊节假日，函数返回False。

4.4考勤数据统计思路

1.获取指定的统计开始日期和结束日期；
2.将员工考勤记录数据按照打卡日期、打卡时间进行排序（理论上原数据即按此顺序记录）；
3.从开始日期到结束日期，逐个日期循环；
4.对每个日期，判断该日期是否为工作日；
5.用该日期去匹配员工考勤记录中的打卡日期；
6.如果该日期为工作日，但无法匹配员工考勤记录打卡日期，则记录缺勤一天；如果可以匹配到员工考勤记录打卡日期，需要进一步判断考勤记录信息：（1）如果有两条完整打卡记录，则正常计算早晚加班时间和迟到早退情况；（2）如果仅有一条完整打卡记录，则仅计算早（晚）加班时间和迟到（早退）情况；（3）如果不存在完整打卡记录，则打卡无效，记录缺勤一天；
7.如果该日期为节假日，并且无法匹配员工考勤记录打卡日期，则无需处理；如果可以匹配到员工考勤记录打卡日期：（1）如果有两条完整打卡记录，则计算节假日加班一天，并正常计算节假日加班时间；（2）如果仅有一条完整打卡记录，则计算节假日加班一天，但无法计算节假日加班时间；（3）如果不存在完整打卡记录，则打卡无效，无需处理；
8.汇总完开始日期和结束日期内每一天的考勤数据后，将结果记录到员工考勤数据统计表中；
9.如果需要统计请休假数据，则将请休假数据汇总到员工考勤数据统计表中；
10.处理下一个员工考勤记录表。