excel 钉钉考勤导出记录怎么计算工作时长？

waw751115 · 发表于 2023-3-14 19:05

李小超yys 发表于 2023-3-14 15:26
你这个时间打卡规则有点乱，你先看看对不对吧

如一天打一次卡就不计算，打两次卡就按第二次打卡时间减去第一次打卡时间，如一天打三次卡，就按第三次打卡时间减去第一次打卡时间,如一天打卡四次，则按第四次打卡减去第三次加第二次打卡减去第一次打卡，如一天五此打卡，则第四次打卡不算！
您这没有计算出来时长啊？

Yalishanda30 · 发表于 2023-3-14 20:10

waw751115 发表于 2023-3-14 19:02
您这个结果还是不对啊？跟之前结果一样，况且结果怎么还有11小时97分？

折算到小时的，再自己转化一下就可以得到多少小时多少分啊。不要先入为主，自己看代码

tspliu · 发表于 2023-3-14 20:45

用得着搞成这样？用人不疑疑人不用，靠打个卡克扣点工资能多干出效益？

一指禅62 · 发表于 2023-3-14 21:23

本帖最后由一指禅62 于 2023-3-14 21:28 编辑

弄个自定义函数，供楼主测试一下，看计算方法是否正确。

打卡.PNG

gbgbxgb · 发表于 2023-3-14 21:32

本帖最后由 gbgbxgb 于 2023-3-15 07:43 编辑

供参考吧。

waw751115 · 发表于 2023-3-15 10:02

gbgbxgb 发表于 2023-3-14 21:32
供参考吧。

高手！佩服！厉害！十分给力！结果是对的！非常感谢！

waw751115 · 发表于 2023-3-15 10:04

一指禅62 发表于 2023-3-14 21:23
弄个自定义函数，供楼主测试一下，看计算方法是否正确。

请问你的代码测试了没有？可以发一下代码我自己来测试一下看结果是否正确？

一指禅62 · 发表于 2023-3-15 10:40

waw751115 发表于 2023-3-15 10:04
请问你的代码测试了没有？可以发一下代码我自己来测试一下看结果是否正确？

全党 · 发表于 2023-3-15 12:25

供参考，和老师们还有很大差距，把上班时间汇总到分钟了。

Sub f()
Dim crr()
arr = Range("g4:ah" & 21).Value
For i = 1 To UBound(arr)
t = 0: s = 0
For j = 1 To UBound(arr, 2)
If arr(i, j) <> "" Then
brr = Split(arr(i, j), Chr(10))
k = UBound(brr)
Select Case k
Case Is = 1
s = DateDiff("n", brr(0), brr(1))
t = t + s
Case Is = 2
s = DateDiff("n", brr(0), brr(1))
t = t + s
Case Is = 3
s = DateDiff("n", brr(0), brr(1)) + DateDiff("n", brr(2), brr(3))
t = t + s
Case Is = 4
s = DateDiff("n", brr(0), brr(1)) + DateDiff("n", brr(2), brr(4))
t = t + s
End Select
End If
Next
n = n + 1
ReDim Preserve crr(1 To n)
crr(n) = t
Next
[am4].Resize(n, 1) = WorksheetFunction.Transpose(crr)
End Sub

复制代码

gbgbxgb · 发表于 2023-3-15 12:39

waw751115 发表于 2023-3-15 10:02
高手！佩服！厉害！十分给力！结果是对的！非常感谢！

代码工作时间算法不严谨。
问下，存在如下恶劣刷卡吗？
上午8：00刷卡（上班签到），然后开溜，实际未上班；
晚上19：00刷卡（上班签到），19：03再刷卡，22：18刷卡（下班）。

从上述情况看，该员工实际工作时长仅为19：00至22：18，即3小时18分钟，但现代码依据楼主的描述，该员工的工作时长为：
8：00至19：00，即为11小时，再加上19：03至22：18，即3小时15分钟，总计该员工工作时长为14小时15分钟，显然大错特错！！

		自动登录	找回密码
密码			免费注册

[求助] excel 钉钉考勤导出记录怎么计算工作时长？

评分

评分

评分