時間を使って判定する

excelvba

例：日本市場の立会時間

    IsJikandesuyo = False
    If 9 <= Hour(Now) And Hour(Now) <= 15 Then
    
        If 11 = Hour(Now) Then
            If Minute(Now) <= 30 Then
                IsJikandesuyo = True
            End If
        ElseIf 12 = Hour(Now) Then
            If 30 <= Minute(Now) Then
                IsJikandesuyo = True
            End If
        ElseIf 15 = Hour(Now) Then
            If Minute(Now) <= 10 Then
                IsJikandesuyo = True
            End If
        Else
            IsJikandesuyo = True
        End If
        
    End If

ネタ元