Confronto tra fasce orario

'Ottiene l'ora corrente
Dim ora As DateTime = DateTime.Now

'Controlla che l'ora sia compresa fra le 20 e le 8
If ora.Hour < 8 OrElse ora.Hour >= 20 Then
    'fai qualcosa
End If

        'L'ora corrente della giornata
        Dim ora As TimeSpan = DateTime.Now.TimeOfDay
        'Il limite inferiore (8.30)
        Dim limit1 As New TimeSpan(8, 30, 0)
        'Il limite superiore (13.00 = 1pm)
        Dim limit2 As New TimeSpan(13, 0, 0)

        'Confronta l'ora coi due limiti (l'ora è compresa nel limite)
        ' dalle 8.30 alle 13.00
        If ora > limit1 AndAlso ora < limit2 Then
            'Fai qualcosa
        End If

        'Confronta l'ora coi due limiti (l'ora è esclusa dal limite)
        ' prima delle 8.30 o dopo le 13.00
        If ora < limit1 OrElse ora > limit2 Then
            'Fai qualcosa
        End If

'L'ora corrente della giornata
Dim ora As TimeSpan = DateTime.Now.TimeOfDay

'I quattro limiti orari (8.30, 13.00, 16.30, 20.00)
Dim limit1 As New TimeSpan(8, 30, 0), limit2 As New TimeSpan(13, 0, 0), _
    limit3 As New TimeSpan(16, 30, 0), limit4 As New TimeSpan(20, 0, 0)

Select Case ora
    Case Is < limit1, Is > limit4
        '20.00 - 8.30
    Case limit1 To limit2
        '8.30 - 13.00
    Case limit2 To limit3
        '13.00 - 16.30
    Case limit3 To limit4
        '16.30 - 20.00
End Select