怎么判断当天打卡情况 是否有漏打卡

王俞的瑜

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 比如以上数据 上午上下班2个卡 下午上下班2个卡 怎么判断其中上班或下班的未打卡情况

LWB666

遍历是必须的, 拿到每个数据后根据它的年月日小时去判断是否打卡, 比如说要判断2024-6-5上午是否打卡上班和下班, 那就去遍历一遍, 如果取小时<9, 那么上午上班了, 如果取小时>10 且 <12, 那就是下班了

  

子程序名	返回值类型	公开	备 注
上下班情况			返回真代表正常上下班
参数名	类 型	参考	可空	数组	备 注
年	整数型
月	整数型
日	整数型				判断某日是否上正常下班
上午	逻辑型				如果为真则表示判断上午是否打卡, 为假表示下午是否打卡
日期列表	文本型
是否上班	逻辑型
是否下班	逻辑型

变量名	类 型	静态	数组	备 注
i	整数型
日期	日期时间型
上班时间	整数型
下班时间	整数型

计次循环首 (取数组成员数 (日期列表), i)
日期 ＝ 到时间 (日期列表 [i])
如果真 (取年份 (日期) ＝ 年 且 取月份 (日期) ＝ 月 且 取日 (日期) ＝ 日)
如果 (上午)
上班时间 ＝ 9  ' 九点之前
下班时间 ＝ 12  ' 十二点之前
上班时间 ＝ 15
下班时间 ＝ 18
判断 (取小时 (日期) ＜ 上班时间)
是否上班 ＝ 真
判断 (取小时 (日期) ＞ 上班时间 且 取小时 (日期) ＜ 下班时间)
是否下班 ＝ 真



如果真 (是否上班 且 是否下班)  ' 优化 可以不写
跳出循环 ()


计次循环尾 ()

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
日期	文本型		0
是否上班	逻辑型
是否下班	逻辑型

日期 ＝ 分割文本 ( #日期, #换行符, )
上下班情况 (2024, 6, 4, 真, 日期, 是否上班, 是否下班)  ' 在日期数组中判断2024年6月4日上午是否上下班
调试输出 (是否上班, 是否下班)
返回 (0)  ' 可以根据您的需要返回任意数值

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 上下班情况, , , 返回真代表正常上下班<br /> .参数 年, 整数型<br /> .参数 月, 整数型<br /> .参数 日, 整数型, , 判断某日是否上正常下班<br /> .参数 上午, 逻辑型, 可空, 如果为真则表示判断上午是否打卡, 为假表示下午是否打卡<br /> .参数 日期列表, 文本型, 数组<br /> .参数 是否上班, 逻辑型, 参考<br /> .参数 是否下班, 逻辑型, 参考<br /> .局部变量 i, 整数型<br /> .局部变量 日期, 日期时间型<br /> .局部变量 上班时间, 整数型<br /> .局部变量 下班时间, 整数型<br /> <br /> .计次循环首 (取数组成员数 (日期列表), i)<br />     日期 ＝ 到时间 (日期列表 <i>)<br />     .如果真 (取年份 (日期) ＝ 年 且 取月份 (日期) ＝ 月 且 取日 (日期) ＝ 日)<br />         .如果 (上午)<br />             上班时间 ＝ 9  ' 九点之前<br />             下班时间 ＝ 12  ' 十二点之前<br />         .否则<br />             上班时间 ＝ 15<br />             下班时间 ＝ 18<br />         .如果结束<br />         .判断开始 (取小时 (日期) ＜ 上班时间)<br />             是否上班 ＝ 真<br />         .判断 (取小时 (日期) ＞ 上班时间 且 取小时 (日期) ＜ 下班时间)<br />             是否下班 ＝ 真<br />         .默认<br /> <br />         .判断结束<br /> <br />         .如果真 (是否上班 且 是否下班)  ' 优化 可以不写<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 日期, 文本型, , "0"<br /> .局部变量 是否上班, 逻辑型<br /> .局部变量 是否下班, 逻辑型<br /> <br /> 日期 ＝ 分割文本 (#日期, #换行符, )<br /> 上下班情况 (2024, 6, 4, 真, 日期, 是否上班, 是否下班)  ' 在日期数组中判断2024年6月4日上午是否上下班<br /> 调试输出 (是否上班, 是否下班)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值

鹏书

判断一下如果当天没有4条记录就说明肯定有未打卡 然后在判断时间

a萧哥

[Shell] 纯文本查看 复制代码

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 打卡数据, 文本型, , "0"
.程序集变量 日期表, 文本型, , "0"
.程序集变量 时段定义, 打卡时段, , "4"  ' 定义四个时段

.数据类型 打卡时段
    .成员 时段名称, 文本型
    .成员 开始小时, 整数型
    .成员 结束小时, 整数型

.子程序 __启动窗口_创建完毕
    初始化时段定义 ()
    加载打卡数据 ()
    分析漏打卡情况 ()

.子程序 初始化时段定义
    ' 定义四个打卡时段范围
    时段定义 [1].时段名称 ＝ "上午上班"
    时段定义 [1].开始小时 ＝ 8
    时段定义 [1].结束小时 ＝ 9

    时段定义 [2].时段名称 ＝ "上午下班"
    时段定义 [2].开始小时 ＝ 11
    时段定义 [2].结束小时 ＝ 12

    时段定义 [3].时段名称 ＝ "下午上班"
    时段定义 [3].开始小时 ＝ 14
    时段定义 [3].结束小时 ＝ 15

    时段定义 [4].时段名称 ＝ "下午下班"
    时段定义 [4].开始小时 ＝ 17
    时段定义 [4].结束小时 ＝ 18

.子程序 加载打卡数据
    ' 原始数据（可从文件读取）
    打卡数据 ＝ {
        "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"
    }

.子程序 分析漏打卡情况
    .局部变量 当前日期, 文本型
    .局部变量 日期时段表, 文本型, , "0"
    .局部变量 i, 整数型
    .局部变量 j, 整数型
    .局部变量 时间戳, 文本型
    .局部变量 日期, 文本型
    .局部变量 小时, 整数型
    .局部变量 分钟, 整数型

    ' 按日期分组
    .计次循环首 (取数组成员数 (打卡数据), i)
        时间戳 ＝ 打卡数据 
        日期 ＝ 取文本左边 (时间戳, 10)
        小时 ＝ 到整数 (取文本中间 (时间戳, 12, 2))
        分钟 ＝ 到整数 (取文本中间 (时间戳, 15, 2))

        ' 记录日期
        .如果真 (查找文本数组 (日期表, 日期) ＝ 0)
            加入成员 (日期表, 日期)
        .如果真结束

        ' 匹配时段
        .计次循环首 (4, j)
            .如果真 (小时 ≥ 时段定义 [j].开始小时 且 小时 ≤ 时段定义 [j].结束小时)
                加入成员 (日期时段表, 日期 ＋ "|" ＋ 时段定义 [j].时段名称)
                跳出循环 ()
            .如果真结束
        .计次循环尾 ()
    .计次循环尾 ()

    ' 检查每个日期的四个时段是否完整
    .计次循环首 (取数组成员数 (日期表), i)
        当前日期 ＝ 日期表 
        .局部变量 缺失时段, 文本型
        缺失时段 ＝ ""

        .计次循环首 (4, j)
            .如果真 (查找文本数组 (日期时段表, 当前日期 ＋ "|" ＋ 时段定义 [j].时段名称) ＝ 0)
                缺失时段 ＝ 缺失时段 ＋ 时段定义 [j].时段名称 ＋ " "
            .如果真结束
        .计次循环尾 ()

        .如果真 (缺失时段 ≠ "")
            调试输出 (当前日期, "漏打卡时段：" ＋ 缺失时段)
        .如果真结束
    .计次循环尾 ()

.子程序 查找文本数组, 整数型
    .参数 数组, 文本型, 数组
    .参数 查找内容, 文本型
    .局部变量 i, 整数型

    .计次循环首 (取数组成员数 (数组), i)
        .如果真 (数组  ＝ 查找内容)
            返回 (i)
        .如果真结束
    .计次循环尾 ()
    返回 (0)

思路：将原始打卡记录按日期分组，明确四个打卡时段的时间范围。然后写匹配规则:检查每条打卡记录属于哪个时段。最后写漏打卡检测:统计每个日期的未匹配时段。把实际打卡数据填入我发的代码中打卡数据数组里就OK，麻烦给个最佳，谢谢

是可可吖

先判断每天的考勤次数是不是4条，然后取打卡时间，上午8点和下午14点的都是上班卡，上午11点和下午17点是下班卡，如果某天考勤少了一条，取上下班打卡的小时，少的那个就是缺勤时间，思路就是这样的思路

观音

刚好无聊敲了一下，判断了 早晚迟到、早晚早退、早晚缺卡，一会发到源码区

观音

观音 发表于 2025-2-21 20:48
刚好无聊敲了一下，判断了 早晚迟到、早晚早退、早晚缺卡，一会发到源码区
...

https://bbs.125.la/thread-14848830-1-1.html

ww8687

接单的一笔

hongqingfeng

你这个不是在易语言群里问了么？我好象看到有人发了打卡什么的，这个简单不用写的那繁琐，建议还是用中文吧，方便后期修改