该excel表有如下结构
姓名\日期
周1
周2
周3
周4
周5
张三
7:35
18:02
7:35
18:02
7:46
17:56
李四
7:35
18:02
7:02
18:00
18:02
需要判断每天是否迟到早退,并生成考勤表
用如下自定义函数cal或者cals
Public Function cal(ByVal cs As Range) As Integer
'计算单元格并返回相应值如下'没打卡 1'正常上下班 0'迟到 2'迟到超过2小时 11'早退 3'早退超过2小时 12'迟到+早退 5'迟到+早退分别都超过2小时'只有上班打卡,没有下班打卡 4'只有上班打卡,迟到,没下班打卡 2+4=6'只有下班打卡,没有上班打卡 7'只有下班打卡,早退,没有上班打卡 3+7=10'一天3次打卡记录30'一天n次以上(n>3)打卡记录 N*10=10n'异常打卡 10:00-15:30打卡 8
Const morning_time = "08:00"
Const evening_time = "17:30"
'超过120分钟算旷工
Const offset_point = 120
'单元格每行是一个数组元素lines()
D