复杂的加班计算方法

fengyuanfy · 发表于 2012-9-8 07:15

在d列和e列分别只计算指定的加班时间，并转变为数值以便在下面做合计，
要注意的是9点到18点中要去掉中午的一个小时休息时间，正常工作为8小时，可以说只要一天满8个小时就算正常上班时间，如果不足8个小时要就要在f列显示缺少的时间数，要注意的还有早来的时间也要计算，还有下班时间超过凌晨12点以后的要计算到上一个日期里，我自己很头痛的

复杂的加班计算.rar (7.24 KB, 下载次数: 10)

840205910 · 发表于 2012-9-8 07:34

这个问题论坛上早就有的。计算并不难，把“规则”定好，公式和宏代码都可以完成的。
别人头痛的是打卡漏打，需要根据具体情况手工补，不然公式和代码处理不好，结果与实际不符。

840205910 · 发表于 2012-9-8 07:48

本帖最后由 840205910 于 2012-9-8 07:54 编辑

如果你原始数据很标准：每天上下班时间记录有且仅有两次。
那么建议：
1、把时间单元格的格式设置为“数值”，小数点的位数在4为差不多；
2、如果下班时间的数值小于上班时间，则下班时间的数值+1；
3、如果日期是“星期日”，则全部时间为周末加班时间；
4、如果日期不是“星期日”，下班时间-上班时间-9/24为基本上班的判断条件；>0为加班，<0为缺少
5、数值变回小时。

fengyuanfy · 发表于 2012-9-8 15:19

840205910 发表于 2012-9-8 07:48
如果你原始数据很标准：每天上下班时间记录有且仅有两次。
那么建议：
1、把时间单元格的格式设置为“数值 ...

麻烦能给个具体自定义公式吗？谢谢了

840205910 · 发表于 2012-9-8 17:31

本帖最后由 840205910 于 2012-9-8 18:02 编辑

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Row > 1 Then
For i = 2 To [a65536].End(3).Row
If Cells(i, 4) < Cells(i, 3) And Cells(i, 4) <> "" Then Cells(i, 4) = Cells(i, 4) + 1
Range("e" & i & ":g" & i).ClearContents
If Cells(i, 2) = "星期日" And Cells(i, 4) <> "" And Cells(i, 3) <> "" Then
  If Cells(i, 4) - Cells(i, 3) > 0.375 Then Cells(i, 6) = (Cells(i, 4) - Cells(i, 3) - 0.375) * 24
  If Cells(i, 4) - Cells(i, 3) < 0.375 Then Cells(i, 7) = (Cells(i, 3) - Cells(i, 4) + 0.375) * 24
Else
  If Cells(i, 4) <> "" And Cells(i, 3) <> "" And Cells(i, 4) - Cells(i, 3) > 0.375 Then Cells(i, 5) = (Cells(i, 4) - Cells(i, 3) - 0.375) * 24
  If Cells(i, 4) <> "" And Cells(i, 3) <> "" And Cells(i, 4) - Cells(i, 3) < 0.375 Then Cells(i, 7) = (Cells(i, 3) - Cells(i, 4) + 0.375) * 24
End If
Next
End If
End Sub

840205910 · 发表于 2012-9-8 18:03

复杂的加班计算.zip (14.73 KB, 下载次数: 18)

407737158 · 发表于 2012-9-8 18:29

用hour函数，不过这种方法比较麻烦。

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

[求助] 复杂的加班计算方法