关于工时核算，请帮下忙。

马小呆

请查看附件，谢谢

liulang0808

Sub 按钮1_Click()
    arr = [c6].CurrentRegion
    For j = 2 To UBound(arr)
        If Len(arr(j, 2)) > 0 Then
            x = CDate(CDate(arr(j, 4)) - CDate(arr(j, 3)))
            If x < 0 Then
                x = 1 + x
            End If
            arr(j, 5) = Format(x, "hh小时mm分")
            arr(j, 6) = WorksheetFunction.Round(x * 24 - 8, 2)
            arr(j, 7) = arr(j, 6) * 60
        End If
    Next j
    [c6].CurrentRegion = arr
End Sub

liulang0808

时间核算.zip (16.59 KB, 下载次数: 17)

2023-5-23 12:46 上传

点击文件名下载附件

模拟结果供参考

wengjl

Sub 计算工时()
    ' https://club.excelhome.net/thread-1663419-1-1.html
    ' 2023-5-23
    x1 = 7
    Do While Not (IsEmpty(Sheet1.Cells(x1, 4).Value))
      If Sheet1.Cells(x1, 6).Value < Sheet1.Cells(x1, 5).Value Then
        xs = 24 + Hour(Sheet1.Cells(x1, 6).Value) - Hour(Sheet1.Cells(x1, 5).Value)
      Else
        xs = Hour(Sheet1.Cells(x1, 6).Value) - Hour(Sheet1.Cells(x1, 5).Value)
      End If
      fz = Minute(Sheet1.Cells(x1, 6).Value) - Minute(Sheet1.Cells(x1, 5).Value)
      If fz < 0 Then
        xs = xs - 1
        fz = fz + 60
      End If
      Sheet1.Cells(x1, 7).Value = xs & "时" & fz & "分"
      Sheet1.Cells(x1, 8).Value = ((xs - 8) * 60 + fz) / 60
      Sheet1.Cells(x1, 9).Value = (xs - 8) * 60 + fz
      x1 = x1 + 1
    Loop
   
End Sub

马小呆

liulang0808 发表于 2023-5-23 12:46
模拟结果供参考

时间如果是这样，就出现错误了

liulang0808

马小呆 发表于 2023-5-23 14:22
时间如果是这样，就出现错误了

建议楼主上传附件的时候，将各种需求描述清楚

马小呆

liulang0808 发表于 2023-5-23 14:58
建议楼主上传附件的时候，将各种需求描述清楚

不好意思，弄附件的时候，疏忽了。

马小呆

liulang0808 发表于 2023-5-23 14:58
建议楼主上传附件的时候，将各种需求描述清楚

版主，麻烦帮个忙修改一下好么

cyq4896

马小呆 发表于 2023-5-23 14:22
时间如果是这样，就出现错误了

可运行不出错

cyq4896

单元格格式设置时间