比较费脑的诸出勤工时，请教各位老师有没有办法用代码实现快速计算

初学者VBA

比较费脑的诸出勤工时，请教各位老师有没有办法用代码实现快速计算
目前的做法，一个个手工输入
打卡规则：
领导班，正常班打4次卡   
六次卡-白班打6次卡
其余班次均打2次卡

6次卡计算逻辑(白班)，一天正常出勤工时为10.5H（扣除半小时休息时间）
上班卡：8:00之前打卡，按8点计算
下班卡：12:00至13：00打卡，按12：00点计算，不到12点打卡也按12：00计算
上班卡：13:30点之前打卡，按13:30计算
下班卡：17:30至18：00打卡，按17:30点计算，不到17:30打卡也按17:30计算
上班卡：18:30之前打卡，按18:30计算
下班卡：20:59之前打卡，按20：00计算
"计算加班：从20：00之后的打卡时间大于21：00则计算加班工时，超过30分钟，
且小于1小时的时间均按半小时计算（例：20：00-21：00，1小时  20：00-21:59，1.5小时   ）"

4次卡计算逻辑(白班)，一天正常出勤工时为8H
上班卡：8:00之前打卡，按8点计算
下班卡：12:00至13：00打卡，按12：00点计算，不到12点打卡也按12：00计算
上班卡：13:30点之前打卡，按13:30计算
下班卡：17:30至18：00打卡，按17:30点计算，不到17:30打卡也按17:30计算

2次卡计算逻辑(白班)，一天正常出勤工时为10.5H（扣除半小时休息时间）
上班卡：8:00之前打卡，按8点计算
下班卡：20:59之前打卡，按20：00计算
"计算加班：从20：00之后的打卡时间大于21：00则计算加班工时，超过30分钟，
且小于1小时的时间均按半小时计算（例：20：00-21：00，1小时  20：00-21:59，1.5小时   ）"

2次卡计算逻辑(夜班)，一天正常出勤工时为10.5H（扣除半小时休息时间）
上班卡：20:00之前打卡，按20点计算
下班卡：8:59之前打卡，按8：00计算
"计算加班：从8：00之后的打卡时间大于9：00则计算加班工时，
超过30分钟且小于1小时的时间均按半小时计算
（例：8：00-9：00，1小时  9：00-9:59，1.5小时   ）"

请假出勤工时计算逻辑
"上班卡：打卡时间大于正常上班打卡时间，按当前打卡时间取整计算
（例：8:59,按9:00计算/9:30,按9:30计算/9:31,按10:00计算 以此类推"
下班卡：取最后的打卡时间进行计算

初学者VBA

此问题有解吗