如何在VBA中解决工时计算问题

Sub CalculateWorkingHours()
    Dim startTime As Date
    Dim endTime As Date
    Dim breakTime As Date
    Dim workingHours As Date
    
    ' 获取输入
    startTime = InputBox("请输入开始时间（格式：HH:MM）：")
    endTime = InputBox("请输入结束时间（格式：HH:MM）：")
    breakTime = InputBox("请输入休息时间（格式：HH:MM）：")
    
    ' 计算工时
    workingHours = endTime - startTime - breakTime
    
    ' 显示结果
    MsgBox "工时为：" & Format(workingHours, "hh:mm")
End Sub