$iStart = Int('19')
$iEnd = Int('4') - 1
Switch $iStart
Case 0 To 23
Case Else
MsgBox(16, 'Error', 'Ошибка промежутка времени')
Exit
EndSwitch
Switch $iEnd
Case 0 To 23
Case Else
MsgBox(16, 'Error', 'Ошибка промежутка времени')
Exit
EndSwitch
If $iStart > $iEnd Then
Switch Int(@HOUR)
Case 0 To $iEnd, $iStart To 23
MsgBox(64, '1-Info', 'Сейчас время в промежутке от ' & $iStart & ':00 часов до ' & $iEnd + 1 & ':00')
EndSwitch
ElseIf $iStart < $iEnd Then
Switch Int(@HOUR)
Case $iStart To $iEnd
MsgBox(64, '2-Info', 'Сейчас время в промежутке от ' & $iStart & ':00 часов до ' & $iEnd + 1 & ':00')
EndSwitch
Else
MsgBox(16, 'Error', 'Ошибка промежутка времени')
Exit
EndIf