[已解决]求助：ｖｂａ一键汇总统计人员迟到早退次数

zjdh

奇怪啦！居然：
11：55 比TimeValue("11:55:00") 小
只能改成：
  If InStr(QK, ARR(I, 3)) = 0 And ARR(I, 3) > TimeValue("8:35:01") Then Brr(R, 2) = Brr(R, 2) + 1
   If InStr(QK, ARR(I, 4)) = 0 And ARR(I, 4) < TimeValue("11:54:49") Then Brr(R, 3) = Brr(R, 3) + 1
   If InStr(QK, ARR(I, 5)) = 0 And ARR(I, 5) > TimeValue("14:35:01") Then Brr(R, 4) = Brr(R, 4) + 1
   If InStr(QK, ARR(I, 6)) = 0 And ARR(I, 6) < TimeValue("16:54:49") Then Brr(R, 5) = Brr(R, 5) + 1

zjdh

7楼附件已更新              .

yjwdjfqb

zjdh 发表于 2012-4-18 17:53
奇怪啦！居然：
11：55 比TimeValue("11:55:00") 小
只能改成：

非常感谢！！！

xgbwb

不错，但必须是很规范的考勤记录