如何通过一个月的工时计算基本工时，G1,G2，G3的工时

1280451505 · 发表于 2022-2-19 10:57

本帖最后由 1280451505 于 2022-2-19 12:13 编辑

如何通过一个月的工时用函数计算基本工时，G1，G2,G3的工时呀
基本工时指的周一到周五期间小于等于8小时
G1工时指的是周一到周五期间当天工时大于8小时之外的工时
G2工时指的是周六到周天的总工时
G3工时指的是法定节假日加班工时

jians0529 · 发表于 2022-2-19 11:06

要计算什么要说明一下呀！基本工时是每天8小时不包周未的吗？

37廿一 · 发表于 2022-2-19 11:16

g1是什么？

1280451505 · 发表于 2022-2-19 11:22

37廿一发表于 2022-2-19 11:16
g1是什么？

周一到周五，超过8小时后的都算G1（可以理解为平时加班工时）

1280451505 · 发表于 2022-2-19 11:27

1280451505 发表于 2022-2-19 11:22
周一到周五，超过8小时后的都算G1（可以理解为平时加班工时）

G2是指周末上班的工时
G3是指法定节假日上班的工时

鲸落52 · 发表于 2022-2-19 11:29

本帖最后由鲸落52 于 2022-2-19 13:36 编辑

1280451505 发表于 2022-2-19 11:22
周一到周五，超过8小时后的都算G1（可以理解为平时加班工时）

能力有限，不清楚法定节假日，只能写出g1和g2的
Sub test()
arr = [a1].CurrentRegion
For i = 2 To UBound(arr)
For j = 2 To UBound(arr, 2) - 4
      If Application.Weekday("2021/" & Application.Text(Application.Substitute(arr(1, j), ".", "/"), "mm/dd")) - 1 <> 6 And _
      Application.Weekday("2021/" & Application.Text(Application.Substitute(arr(1, j), ".", "/"), "mm/dd")) - 1 <> 0 Then
         If arr(i, j) > 8 Then
            arr(i, 34) = arr(i, 34) + (arr(i, j) - 8)
         End If
      Else
            arr(i, 35) = arr(i, 34) + (arr(i, j) - 8)
      End If

Next
Next
[a1].CurrentRegion = arr
End Sub

1280451505 · 发表于 2022-2-19 11:33

鲸落52 发表于 2022-2-19 11:29
是这个意思吗？

是的，如12.1是周三，表里有10个小时，那8小时做为基本工时，剩余的2小时就是G1

37廿一 · 发表于 2022-2-19 11:35

1280451505 发表于 2022-2-19 11:22
周一到周五，超过8小时后的都算G1（可以理解为平时加班工时）

你只说明了一点，工作日不足8小时的情况下，是否要减去不足的时间？请在附件中说明，并模拟结果，

1280451505 · 发表于 2022-2-19 11:40

37廿一发表于 2022-2-19 11:35
你只说明了一点，工作日不足8小时的情况下，是否要减去不足的时间？请在附件中说明，并模拟结果，

不足8小时就算做基本工时，没有G1工时呀

37廿一 · 发表于 2022-2-19 11:49

工时计算.zip (9.64 KB, 下载次数: 8) 对原附件中的日期格式进行了修正，g2、g3请参照g1自己写一下吧

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

[求助] 如何通过一个月的工时计算基本工时，G1,G2，G3的工时