判断月份内工作日是否打卡且判断上下午迟到早退

王俞的瑜

2024-06-03 08:41:03
2024-06-03 11:10:10
2024-06-03 14:43:12
2024-06-03 17:11:10
2024-06-04 08:36:45
2024-06-04 14:29:50
2024-06-04 17:07:15
2024-06-05 08:40:17
2024-06-05 11:22:12
2024-06-05 14:23:58
2024-06-05 17:21:54
2024-06-06 08:07:10
2024-06-07 08:42:28
2024-06-07 11:20:45
2024-06-07 14:31:51
2024-06-11 08:38:44
2024-06-11 11:19:06
2024-06-11 14:21:26
2024-06-11 17:15:56
2024-06-12 08:13:23
2024-06-12 11:14:09
2024-06-15 08:10:47
2024-06-17 08:45:20
2024-06-17 11:22:52
2024-06-17 14:25:32
2024-06-17 17:06:39
2024-06-18 08:33:35
2024-06-19 08:28:32
2024-06-19 14:32:09
2024-06-19 17:19:43
2024-06-20 08:30:10
2024-06-20 14:29:38
2024-06-21 08:29:47
2024-06-24 08:25:11
2024-06-24 11:15:32
2024-06-24 14:30:49
2024-06-24 17:03:40
2024-06-25 08:27:08
2024-06-25 11:19:55
2024-06-25 14:29:44
2024-06-26 08:23:12
2024-06-26 14:28:27
2024-06-27 08:38:27
2024-06-27 11:17:40
2024-06-27 14:29:30
2024-06-28 08:24:39
2024-06-28 11:16:38
2024-06-28 14:26:55
例子如上
判断月份内工作日是否打卡且判断上下午迟到早退和未打卡

aipca

修改一下 不知道为啥条件A≠1或7没能成功。

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
A	整数型
考勤	文本型		0
i	整数型
迟到	文本型
早退	文本型

考勤 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (考勤), i)
A ＝ 取星期几 (到时间 (考勤 [i]))
判断 (A ＝ 1)
编辑框2.加入文本 (考勤 [i] ＋ “          非工作日” ＋ #换行符 )
调试输出 (A)
判断 (A ＝ 7)
编辑框2.加入文本 (考勤 [i] ＋ “          非工作日” ＋ #换行符 )
调试输出 (A)
判断 (A ＝ 2)
编辑框2.加入文本 (考勤 [i] ＋ “    工作日” ＋ 迟到 ＋ 早退 ＋ #换行符 )
判断 (取小时 (到时间 (考勤 [i])) ＞ 9 且 取小时 (到时间 (考勤 [i])) ＜ 12)  ' 定义迟到时间段
迟到 ＝ “  迟到！”
迟到 ＝ “”

判断 (取小时 (到时间 (考勤 [i])) ＜ 17 且 取小时 (到时间 (考勤 [i])) ＞ 12)  ' 定义早退时间段’
早退 ＝ “  早退！”
早退 ＝ “”

判断 (A ＝ 3)
编辑框2.加入文本 (考勤 [i] ＋ “    工作日” ＋ 迟到 ＋ 早退 ＋ #换行符 )
判断 (取小时 (到时间 (考勤 [i])) ＞ 9 且 取小时 (到时间 (考勤 [i])) ＜ 12)  ' 定义迟到时间段
迟到 ＝ “  迟到！”
迟到 ＝ “”

判断 (取小时 (到时间 (考勤 [i])) ＜ 17 且 取小时 (到时间 (考勤 [i])) ＞ 12)  ' 定义早退时间段’
早退 ＝ “  早退！”
早退 ＝ “”

判断 (A ＝ 4)
编辑框2.加入文本 (考勤 [i] ＋ “    工作日” ＋ 迟到 ＋ 早退 ＋ #换行符 )
判断 (取小时 (到时间 (考勤 [i])) ＞ 9 且 取小时 (到时间 (考勤 [i])) ＜ 12)  ' 定义迟到时间段
迟到 ＝ “  迟到！”
迟到 ＝ “”

判断 (取小时 (到时间 (考勤 [i])) ＜ 17 且 取小时 (到时间 (考勤 [i])) ＞ 12)  ' 定义早退时间段’
早退 ＝ “  早退！”
早退 ＝ “”

判断 (A ＝ 5)
编辑框2.加入文本 (考勤 [i] ＋ “    工作日” ＋ 迟到 ＋ 早退 ＋ #换行符 )
判断 (取小时 (到时间 (考勤 [i])) ＞ 9 且 取小时 (到时间 (考勤 [i])) ＜ 12)  ' 定义迟到时间段
迟到 ＝ “  迟到！”
迟到 ＝ “”

判断 (取小时 (到时间 (考勤 [i])) ＜ 17 且 取小时 (到时间 (考勤 [i])) ＞ 12)  ' 定义早退时间段’
早退 ＝ “  早退！”
早退 ＝ “”

判断 (A ＝ 6)
编辑框2.加入文本 (考勤 [i] ＋ “    工作日” ＋ 迟到 ＋ 早退 ＋ #换行符 )
判断 (取小时 (到时间 (考勤 [i])) ＞ 9 且 取小时 (到时间 (考勤 [i])) ＜ 12)  ' 定义迟到时间段
迟到 ＝ “  迟到！”
迟到 ＝ “”

判断 (取小时 (到时间 (考勤 [i])) ＜ 17 且 取小时 (到时间 (考勤 [i])) ＞ 12)  ' 定义早退时间段’
早退 ＝ “  早退！”
早退 ＝ “”




计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 A, 整数型<br /> .局部变量 考勤, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 迟到, 文本型<br /> .局部变量 早退, 文本型<br /> <br /> 考勤 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (考勤), i)<br />     A ＝ 取星期几 (到时间 (考勤 <i>))<br />     .判断开始 (A ＝ 1)<br />         编辑框2.加入文本 (考勤 <i> ＋ “          非工作日” ＋ #换行符)<br />         调试输出 (A)<br />     .判断 (A ＝ 7)<br />         编辑框2.加入文本 (考勤 <i> ＋ “          非工作日” ＋ #换行符)<br />         调试输出 (A)<br />     .判断 (A ＝ 2)<br />         编辑框2.加入文本 (考勤 <i> ＋ “    工作日” ＋ 迟到 ＋ 早退 ＋ #换行符)<br />         .判断开始 (取小时 (到时间 (考勤 <i>)) ＞ 9 且 取小时 (到时间 (考勤 <i>)) ＜ 12)  ' 定义迟到时间段<br />             迟到 ＝ “  迟到！”<br />         .默认<br />             迟到 ＝ “”<br />         .判断结束<br /> <br />         .判断开始 (取小时 (到时间 (考勤 <i>)) ＜ 17 且 取小时 (到时间 (考勤 <i>)) ＞ 12)  ' 定义早退时间段’<br />             早退 ＝ “  早退！”<br />         .默认<br />             早退 ＝ “”<br />         .判断结束<br /> <br />     .判断 (A ＝ 3)<br />         编辑框2.加入文本 (考勤 <i> ＋ “    工作日” ＋ 迟到 ＋ 早退 ＋ #换行符)<br />         .判断开始 (取小时 (到时间 (考勤 <i>)) ＞ 9 且 取小时 (到时间 (考勤 <i>)) ＜ 12)  ' 定义迟到时间段<br />             迟到 ＝ “  迟到！”<br />         .默认<br />             迟到 ＝ “”<br />         .判断结束<br /> <br />         .判断开始 (取小时 (到时间 (考勤 <i>)) ＜ 17 且 取小时 (到时间 (考勤 <i>)) ＞ 12)  ' 定义早退时间段’<br />             早退 ＝ “  早退！”<br />         .默认<br />             早退 ＝ “”<br />         .判断结束<br /> <br />     .判断 (A ＝ 4)<br />         编辑框2.加入文本 (考勤 <i> ＋ “    工作日” ＋ 迟到 ＋ 早退 ＋ #换行符)<br />         .判断开始 (取小时 (到时间 (考勤 <i>)) ＞ 9 且 取小时 (到时间 (考勤 <i>)) ＜ 12)  ' 定义迟到时间段<br />             迟到 ＝ “  迟到！”<br />         .默认<br />             迟到 ＝ “”<br />         .判断结束<br /> <br />         .判断开始 (取小时 (到时间 (考勤 <i>)) ＜ 17 且 取小时 (到时间 (考勤 <i>)) ＞ 12)  ' 定义早退时间段’<br />             早退 ＝ “  早退！”<br />         .默认<br />             早退 ＝ “”<br />         .判断结束<br /> <br />     .判断 (A ＝ 5)<br />         编辑框2.加入文本 (考勤 <i> ＋ “    工作日” ＋ 迟到 ＋ 早退 ＋ #换行符)<br />         .判断开始 (取小时 (到时间 (考勤 <i>)) ＞ 9 且 取小时 (到时间 (考勤 <i>)) ＜ 12)  ' 定义迟到时间段<br />             迟到 ＝ “  迟到！”<br />         .默认<br />             迟到 ＝ “”<br />         .判断结束<br /> <br />         .判断开始 (取小时 (到时间 (考勤 <i>)) ＜ 17 且 取小时 (到时间 (考勤 <i>)) ＞ 12)  ' 定义早退时间段’<br />             早退 ＝ “  早退！”<br />         .默认<br />             早退 ＝ “”<br />         .判断结束<br /> <br />     .判断 (A ＝ 6)<br />         编辑框2.加入文本 (考勤 <i> ＋ “    工作日” ＋ 迟到 ＋ 早退 ＋ #换行符)<br />         .判断开始 (取小时 (到时间 (考勤 <i>)) ＞ 9 且 取小时 (到时间 (考勤 <i>)) ＜ 12)  ' 定义迟到时间段<br />             迟到 ＝ “  迟到！”<br />         .默认<br />             迟到 ＝ “”<br />         .判断结束<br /> <br />         .判断开始 (取小时 (到时间 (考勤 <i>)) ＜ 17 且 取小时 (到时间 (考勤 <i>)) ＞ 12)  ' 定义早退时间段’<br />             早退 ＝ “  早退！”<br />         .默认<br />             早退 ＝ “”<br />         .判断结束<br /> <br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()

aipca

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
A	整数型
考勤	文本型		0
i	整数型

考勤 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (考勤), i)
A ＝ 取星期几 (到时间 (考勤 [i]))
判断 (A ≠ 1 或 A ≠ 7)
判断 (取小时 (到时间 (考勤 [i])) ＞ 9 且 取小时 (到时间 (考勤 [i])) ＜ 12)  ' 定义迟到时间段
编辑框2.加入文本 (考勤 [i] ＋ “    您迟到了！” ＋ #换行符 )



判断 (取小时 (到时间 (考勤 [i])) ＜ 17 且 取小时 (到时间 (考勤 [i])) ＞ 12)  ' 定义早退时间段’
编辑框2.加入文本 (考勤 [i] ＋ “    您早退了！” ＋ #换行符 )



编辑框2.加入文本 (考勤 [i] ＋ “    工作日” ＋ #换行符 )
判断 (A ＝ 1 或 A ＝ 7)
编辑框2.加入文本 (考勤 [i] ＋ “    非工作日” ＋ #换行符 )



计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 A, 整数型<br /> .局部变量 考勤, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 考勤 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (考勤), i)<br />     A ＝ 取星期几 (到时间 (考勤 <i>))<br />     .判断开始 (A ≠ 1 或 A ≠ 7)<br /> <br />         .判断开始 (取小时 (到时间 (考勤 <i>)) ＞ 9 且 取小时 (到时间 (考勤 <i>)) ＜ 12)  ' 定义迟到时间段<br />             编辑框2.加入文本 (考勤 <i> ＋ “    您迟到了！” ＋ #换行符)<br />         .默认<br /> <br />         .判断结束<br /> <br />         .判断开始 (取小时 (到时间 (考勤 <i>)) ＜ 17 且 取小时 (到时间 (考勤 <i>)) ＞ 12)  ' 定义早退时间段’<br />             编辑框2.加入文本 (考勤 <i> ＋ “    您早退了！” ＋ #换行符)<br />         .默认<br /> <br />         .判断结束<br /> <br />         编辑框2.加入文本 (考勤 <i> ＋ “    工作日” ＋ #换行符)<br />     .判断 (A ＝ 1 或 A ＝ 7)<br />         编辑框2.加入文本 (考勤 <i> ＋ “    非工作日” ＋ #换行符)<br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()

王俞的瑜

aipca 发表于 2025-2-21 13:10
修改一下 不知道为啥条件A≠1或7没能成功。
[e=1].版本 2
.支持库 spec

还有一个 未打卡判断

王俞的瑜

aipca 发表于 2025-2-21 13:10
修改一下 不知道为啥条件A≠1或7没能成功。
[e=1].版本 2
.支持库 spec

就是比如有上午两个卡 下午两个卡 但是 有时候会打3个卡 （如上班卡未打）

aipca

王俞的瑜 发表于 2025-2-21 19:17
就是比如有上午两个卡 下午两个卡 但是 有时候会打3个卡 （如上班卡未打） ...

这个比较烦人 要做几个定义：
比如9点前为正常上班卡，9点到11点为早上迟到卡，11点到12点为早上早退，12点到13点为正常下班，13点到14点为正常上班卡，14点到16点为下午迟到卡，16点到17点为下午早退卡，17点后为正常下班卡，你这个主要问题是缺格式，会出现某些时间不能有效的判断，到底是早退还是早到，需要对你数据来源本身的格式需要进一步优化的 统一一天四次考勤，哪怕是缺卡，也要保留格式。

凌哥

https://yuanqi.tencent.com/share ... d66ffab48b4a8fee773

判断月份内工作日是否打卡且判断上下午迟到早退.e (13.67 KB, 下载次数: 2)

2025-2-21 22:09 上传

点击文件名下载附件