计算时间问题

suqji

有从打卡机上导出考勤记录，格式如表，有什么公式或函数快速计算每个人的工作时间，谢谢！

ykcbf1100

用公式或函数的话，不是应该发到函数版去吗？

LIUZHU

08:03这种算迟到吗？

tanglf188

以第四行为例，但运算结果和你不一样，如果要用考勤规则，就用实际上班时间arr(0),和实际下班时间arr(1),重新判断一下，插入到第三-四行代码之间就可以了，你说的太笼统没法准确写出代码，所以自己修改一下吧。

1.     For Each mc In Sheet1.Range("B4:N4")
   
2.         If mc.Value <> "" Then
   
3.             arr = Split(mc, Chr(10))
   
4.             mc.Offset(1).Value = Format(DateDiff("n", arr(0), arr(1)) / 60, "#0.0")
   
5.         End If
   
6.     Next
   

复制代码

LIUZHU

这种问题，个人认为很不好处理，涉及要很多情形，迟到、早退等

nightsun620

用公式弄了以下，在第二页里有分解
默认开始时间早于8点，结束时间晚于8点半的部分，都不算工作时间。如果算的话，改一下就好。
因为是公式计算，所以结束时间为8点29的，肯定会比8点30以后打开的时间少一点，参考D5单元格。


C5的公式：
=IF(LEN(C4)=0,"",IFERROR(LET(St,TIMEVALUE(LEFT(C4,FIND(CHAR(10),C4)-1)),Ed,TIMEVALUE(MID(C4,FIND(CHAR(10),C4)+1,99)),24*(MEDIAN("12:00",St,Ed)-MEDIAN("8:00",St,Ed)+MEDIAN("18:00",St,Ed)-MEDIAN("12:30",St,Ed)+(MEDIAN("20:30",St,Ed)-MEDIAN("18:30",St,Ed)))),"打卡不全"))

如果Excel版本不支持LET公式，可以把开始时间St，结束时间Ed带入，只不过公式会变得比较长


计算结果如下如所示：

LIUZHU

JSA自定义函数，适用于WPS

LIUZHU

附件在此，请测试

suqji

LIUZHU 发表于 2023-2-27 16:18
08:03这种算迟到吗？

这个是不算迟到