如何在 DTPICKER vb6 中计算分钟

Question

我正在创建一个薪资系统，我想使用两个 dtpicker 来计算员工的迟到分钟数 Dtpicker1 用于时间，Dtpicker2 用于超时

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

Answer 1

如果所有员工的工作时间相同（例如 8 hours/day）：

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。

如何在 DTPICKER vb6 中计算分钟

How to calculate the minute in DTPICKER vb6

vb6