如何在 DTPICKER vb6 中计算分钟

Question

>我正在创建一个工资单系统，我想使用两个 dtpicker 计算员工的迟到分钟 Dtpicker1 表示时间，Dtpicker2 表示超时

Private Sub calc_Click()
oras = DateDiff("n", DTPicker1, DTPicker2)
Text1.Text = oras
End sub

Answer 1

如果所有员工都工作相同的小时数(例如 8 小时/天(：

Private Sub calc_Click()
Dim iWorkdayHours As Integer
Dim iMinutesWorked As Integer
Dim iMinutesLate As Integer
' Get the amount of minutes between two dates
iMinutesWorked = DateDiff("n", DTPicker1, DTPicker2)
' Get number of hours employee should have worked
iWorkdayHours = 8
iMinutesLate = (iWorkdayHours * 60) - iMinutesWorked
If iMinutesLate > 0 Then
Text1.Text = iMinutesLate & " minutes late."
Else
Text1.Text = "On time."
End If
End Sub

如果员工的班次长度不同，您可以更新iWorkdayHours。