考勤数据对比分析，困住了~高手来挑战吧

qinghuang

程序做了一半，由于员工每天打卡的次数不确定，不知道怎么比对了。
特殊情况：员工中午可能会加班  12:00-13：30 之间多大两次卡。

功能：考勤分析
条件：
1.需要分析的人有排班设置如下：
[正常排班]
第一次上班时间=08:00
第一次下班时间=12:00
第二次上班时间=13:30
第二次下班时间=17:30
2.每天打卡的次数不确定（数据如下），需要分析正常班次是否异常，（迟到，早退，少打卡）以下为示例数据,考勤全部正常的！
[20130101打卡时间]
1=07:55
2=12:01
3=13:22
4=17:36
[20130102打卡时间]
1=07:56
2=12:00
3=12:00
4=13:30
5=13:30
6=17:36
[20130102打卡时间]
1=07:56
2=12:00
3=12:00
4=13:30
5=13:30
6=17:36
[20130103打卡时间]
1=07:58
2=12:01
3=12:30
4=17:30
5=17:30
6=20:36

qinghuang

源码需要获取公司内部  发上来也看不到什么
上面是我模拟的数据
只要程序能分析成功上面的数据就OK了
[e]
.版本 2

.程序集 窗口程序集1
.程序集变量 验证码, 文本型

.子程序 _按钮1_被单击
.局部变量 提交地址, 文本型
.局部变量 提交数据, 文本型
.局部变量 返回文本, 文本型
.局部变量 找到位置, 整数型, , , 时间标记
.局部变量 日期位置, 整数型, , , 打卡日期的位置
.局部变量 计数, 整数型
.局部变量 时间1, 文本型, , , 起始时间（当前日-1）
.局部变量 时间2, 文本型, , , 结束时间（当前日）
.局部变量 考勤时间, 文本型
.局部变量 结果, 文本型, , "4", 结果
.局部变量 i, 整数型

编辑框1.内容 ＝ “”
编辑框2.内容 ＝ “”
.计次循环首 (4, i)  ' 初始化结果数组为0000
    结果 ＝ “0”
.计次循环尾 ()
时间1 ＝ 格式时间文本 (增减时间 (取现行时间 (), 5, -1))
时间2 ＝ 格式时间文本 (取现行时间 ())
输出调试文本 (时间1)
输出调试文本 (时间2)

提交地址 ＝ “http://192.168.30.8/atten/history.asp”
提交数据 ＝ “selectm=EmpNo&selectkey=” ＋ ID ＋ “&year01=” ＋ 到文本 (取年份 (到时间 (时间1))) ＋ “&month01=” ＋ 到文本 (取月份 (到时间 (时间1))) ＋ “&day01=” ＋ 到文本 (取日 (到时间 (时间1))) ＋ “&year02=” ＋ 到文本 (取年份 (到时间 (时间2))) ＋ “&month02=” ＋ 到文本 (取月份 (到时间 (时间2))) ＋ “&day02=” ＋ 到文本 (取日 (到时间 (时间2))) ＋ “&Submit2=%B2%E9+%D1%AF&page=1&MaxPerPage=20”

返回文本 ＝ 彗星HTTP读文本 (提交地址, “POST”, , , 提交数据, )


编辑框1.内容 ＝ 返回文本
日期位置 ＝ 寻找文本 (返回文本, 时间1, 1, 假)

编辑框2.内容 ＝ 编辑框2.内容 ＋ “----” ＋ 时间1 ＋ “----” ＋ #换行符

.判断循环首 (日期位置 ≠ -1)
    计数 ＝ 计数 ＋ 1
    考勤时间 ＝ 取文本中间 (返回文本, 日期位置 － 54, 5)

    .判断开始 (计数 ＝ 1)
        .如果 (考勤时间 ≤ 上班时间1)
            结果 [计数] ＝ “1”
        .否则
            结果 [计数] ＝ “0”
        .如果结束

    .判断 (计数 ＝ 2)
        .如果 (考勤时间 ≥ 下班时间1)
            结果 [计数] ＝ “1”
        .否则
            结果 [计数] ＝ “0”
        .如果结束

    .判断 (计数 ＝ 3)
        .如果 (考勤时间 ≤ 上班时间2)
            结果 [计数] ＝ “1”
        .否则
            结果 [计数] ＝ “0”
        .如果结束

    .判断 (计数 ＝ 4)
        .如果 (考勤时间 ≥ 下班时间2)
            结果 [计数] ＝ “1”
        .否则
            结果 [计数] ＝ “0”
        .如果结束

    .默认


    .判断结束
    ' 输出调试文本 (“前一工作日”)
    编辑框2.内容 ＝ 编辑框2.内容 ＋ “第” ＋ 到文本 (计数) ＋ “次打卡时间为:” ＋ 考勤时间 ＋ #换行符
    日期位置 ＝ 寻找文本 (返回文本, 时间1, 日期位置 ＋ 1, 假)
.判断循环尾 ()
编辑框2.内容 ＝ 编辑框2.内容 ＋ #换行符
编辑框2.内容 ＝ 编辑框2.内容 ＋ “以下为” ＋ 时间1 ＋ “分析结果” ＋ #换行符
.计次循环首 (4, i)
    .如果 (结果 ＝ “0”)
        编辑框2.内容 ＝ 编辑框2.内容 ＋ “第” ＋ 到文本 (i) ＋ “打卡异常” ＋ #换行符
    .否则
        编辑框2.内容 ＝ 编辑框2.内容 ＋ “第” ＋ 到文本 (i) ＋ “打卡正常” ＋ #换行符
    .如果结束

.计次循环尾 ()


.计次循环首 (4, i)  ' 初始化结果数组为0000
    结果 ＝ “0”
.计次循环尾 ()


编辑框2.内容 ＝ 编辑框2.内容 ＋ #换行符
日期位置 ＝ 寻找文本 (返回文本, 时间2, 1, 假)
编辑框2.内容 ＝ 编辑框2.内容 ＋ “----” ＋ 时间2 ＋ “----” ＋ #换行符

计数 ＝ 0
.判断循环首 (日期位置 ≠ -1)
    计数 ＝ 计数 ＋ 1
    考勤时间 ＝ 取文本中间 (返回文本, 日期位置 － 54, 5)
    .判断开始 (计数 ＝ 1)
        .如果 (考勤时间 ≤ 上班时间1)
            结果 [计数] ＝ “1”
        .否则
            结果 [计数] ＝ “0”
        .如果结束

    .判断 (计数 ＝ 2)
        .如果 (考勤时间 ≥ 下班时间1)
            结果 [计数] ＝ “1”
        .否则
            结果 [计数] ＝ “0”
        .如果结束

    .判断 (计数 ＝ 3)
        .如果 (考勤时间 ≤ 上班时间2)
            结果 [计数] ＝ “1”
        .否则
            结果 [计数] ＝ “0”
        .如果结束

    .判断 (计数 ＝ 4)
        .如果 (考勤时间 ≥ 下班时间2)
            结果 [计数] ＝ “1”
        .否则
            结果 [计数] ＝ “0”
        .如果结束

    .默认

    .判断结束

    ' 输出调试文本 (“当前工作日”)

    编辑框2.内容 ＝ 编辑框2.内容 ＋ “第” ＋ 到文本 (计数) ＋ “次打卡时间为:” ＋ 考勤时间 ＋ #换行符
    日期位置 ＝ 寻找文本 (返回文本, 时间2, 日期位置 ＋ 1, 假)
.判断循环尾 ()

编辑框2.内容 ＝ 编辑框2.内容 ＋ #换行符
编辑框2.内容 ＝ 编辑框2.内容 ＋ “以下为” ＋ 时间2 ＋ “分析结果” ＋ #换行符
.计次循环首 (4, i)
    .如果 (结果 ＝ “0”)
        编辑框2.内容 ＝ 编辑框2.内容 ＋ “第” ＋ 到文本 (i) ＋ “打卡异常” ＋ #换行符
    .否则
        编辑框2.内容 ＝ 编辑框2.内容 ＋ “第” ＋ 到文本 (i) ＋ “打卡正常” ＋ #换行符
    .如果结束

.计次循环尾 ()


计数 ＝ 0

[/e]

凌霄

源码发来看看

泉丿丶

取出当天最接近 ?<=8 、?>=12 、 ?<=13.3 、?>=17.3 ，全部符合就ok。 是这样吧？

qinghuang

泉丿丶 发表于 2014-1-6 17:17
取出当天最接近 ?=12 、 ?=17.3 ，全部符合就ok。 是这样吧？

对的 需要识别正常班的打卡。
其它时间打卡 比如 8点前，12:00- 13:30  之间 无论几次都不考虑。
只要正常班的时间在（无缺卡 无迟到 早退） 就显示正常。

泉丿丶

qinghuang 发表于 2014-1-6 17:20
对的 需要识别正常班的打卡。
其它时间打卡 比如 8点前，12:00- 13:30  之间 无论几次都不考虑。
只要 ...

   这个慢慢写判断吧，先取出接近1234的几个值。再依次判断时间差就好了。