该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