Ms表单控件根据时间计算值

Question

我有一个组合框[cboShift]有两个选项“Daylight”和“Afternoon”。我想根据当前时间自动选择班次。

因此，如果当前时间是从早上2:01到下午4点，那么我需要将组合框选择为白天，如果是下午4:01到凌晨2点，则选择将是下午。

Answer 1

这是你想要做的吗？

Function getShift() As String
Dim tm As Date
Dim evstart As Date
Dim evend As Date
Dim retval As String
tm = Format(Now(), "hh AMPM")
evstart = "4:00pm"
evend = "2:00am"
If (tm <= evstart) Then
    If (tm >= evend) Then
        retval = "Daylight"
    Else
    retval = "Afternoon"
    End If
End If
getShift = retval
End Function

它只会在您移动到表单上的新记录时显示。