时间戳

首页 > 解决方案 > 如何在 DTPICKER vb6 中计算分钟

vb6 - 如何在 DTPICKER vb6 中计算分钟

问题描述

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

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

标签： vb6

解决方案

如果所有员工的工作时间相同（例如每天 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.

推荐阅读