在Excel VBA中编写宏程序来计算工时，可以按照以下步骤进行：
设计工时明细表
创建一个工时明细表，包含员工姓名、工序、数量、合格数量、工时和工资等信息。
编写宏程序
使用Excel的VBA编辑器，编写一个宏程序来读取工时明细表中的数据，并根据这些数据计算每个员工的每日总工时和加班工时。
自动计算工时
通过获取当月天数和员工信息，填充工作表，然后匹配打卡时间，最终实现工时的自动计算。
```vba
Sub 计算工时()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim totalHours As Double
Dim overtimeHours As Double
Dim startDateTime As Date
Dim endDateTime As Date
' 设置工作表
Set ws = ThisWorkbook.Sheets("Sheet1")
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
' 初始化总工时和加班工时
totalHours = 0
overtimeHours = 0
' 获取当月天数
Dim currentMonth As Integer
currentMonth = Month(Date)
Dim currentYear As Integer
currentYear = Year(Date)
' 遍历每个员工的记录
For i = 2 To lastRow
' 获取打卡时间
startDateTime = TimeValue(ws.Cells(i, 4).Value)
endDateTime = TimeValue(ws.Cells(i, 5).Value)
' 计算工时
If endDateTime > startDateTime Then
totalHours = totalHours + (endDateTime - startDateTime)
If totalHours > 8 Then
overtimeHours = overtimeHours + (totalHours - 8)
totalHours = 8
End If
End If
Next i
' 输出结果
MsgBox "总工时: " & totalHours & "小时"
MsgBox "加班工时: " & overtimeHours & "小时"
End Sub
```
在这个示例中，假设工时明细表中的打卡时间分别在第4列和第5列，并且日期在当月内。宏程序会遍历每个员工的记录，计算他们的总工时和加班工时，并输出结果。
请注意，这只是一个简单的示例，实际应用中可能需要根据具体需求进行调整和优化。
