forms - Ms Access 表单控件根据一天中的时间计算值

Question

我有一个组合框 [cboShift]，它有两个选择“日光”和“下午”。我想根据当前时间自动选择班次。

因此，如果当前时间是从凌晨 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

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