forms - Ms Accessフォームコントロールは、時刻に基づいて値を計算します

Question

「Daylight」と「Afternoon」の 2 つの選択肢があるコンボ ボックス [cboShift] があります。現在の時刻に基づいてシフトを自動選択したい。

したがって、現在の時刻が午前 2 時 1 分から午後 4 時までの場合は、コンボボックスを選択する必要があります。午後 4 時 1 分から午前 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

フォームの新しいレコードに移動したときにのみ表示されます。