Dim d1, d2, d3 As Date
Dim d4 As Integer
Dim x As Long
Option Explicit
Private Sub Command1_Click()
d1 = TimePicker.Value + DTPicker1.Value
d2 = TimePicker2.Value + DTPicker3.Value
x = DateDiff("h", d1, d2)
MsgBox x
End Sub
Private Sub Form_Load()
TimePicker.Format = dtpTime
TimePicker2.Format = dtpTime
End Sub
============================================
我想在三天或更长时间里计算更多的小时数，我只能加上两天，它给我的值是16hours，它是正确的，如果我再增加一天，它将增加24小时，所以它变成40，我该如何解决。我想每天工作8小时
如果使用x = DateDiff("h", d1, d2)，则将获得d1和d2之间的小时数。如果使用x = DateDiff("d", d1, d2)，则将获得d1和d2之间的天数。
如果您想每天获得8个小时，只需将DateDiff值乘以8：
x = DateDiff("d", d1, d2) * 8
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句