#include <date.au3>
Dim $aTimePeriod[6] = [5, "06:00 - 07:59", "08:00 - 12:59", "13:00 - 17:59", "18:00 - 21:59", "22:00 - 05:59"]
Dim $aTP[6][2] = [['06:00','07:59'],['08:00','12:59'],['13:00','17:59'],['18:00','21:59'],['22:00','05:59']]
Dim $a2DTP[6][2] = [ _
[_TimeToTicks(StringLeft($aTP[0][0], 2), StringRight($aTP[0][0], 2)) ,_TimeToTicks(StringLeft($aTP[0][1], 2), StringRight($aTP[0][1], 2))], _
[_TimeToTicks(StringLeft($aTP[1][0], 2), StringRight($aTP[1][0], 2)) ,_TimeToTicks(StringLeft($aTP[1][1], 2), StringRight($aTP[1][1], 2))], _
[_TimeToTicks(StringLeft($aTP[2][0], 2), StringRight($aTP[2][0], 2)) ,_TimeToTicks(StringLeft($aTP[2][1], 2), StringRight($aTP[2][1], 2))], _
[_TimeToTicks(StringLeft($aTP[3][0], 2), StringRight($aTP[3][0], 2)) ,_TimeToTicks(StringLeft($aTP[3][1], 2), StringRight($aTP[3][1], 2))], _
[_TimeToTicks(StringLeft($aTP[4][0], 2), StringRight($aTP[4][0], 2)) ,_TimeToTicks(StringLeft($aTP[4][1], 2), StringRight($aTP[4][1], 2))]]
$sTime = '15:06'
$iTicks = _TimeToTicks(StringLeft($sTime, 2), StringRight($sTime, 2))
If $iTicks > $a2DTP[0][0] And $iTicks < $a2DTP[0][1] Then
ConsoleWrite('Временная метка ' & $sTime & ' попадает в период между ' & $aTP[0][0] & ' и ' & $aTP[0][1] & @CRLF)
ElseIf $iTicks > $a2DTP[1][0] And $iTicks < $a2DTP[1][1] Then
ConsoleWrite('Временная метка ' & $sTime & ' попадает в период между ' & $aTP[1][0] & ' и ' & $aTP[1][1] & @CRLF)
ElseIf $iTicks > $a2DTP[2][0] And $iTicks < $a2DTP[2][1] Then
ConsoleWrite('Временная метка ' & $sTime & ' попадает в период между ' & $aTP[2][0] & ' и ' & $aTP[2][1] & @CRLF)
ElseIf $iTicks > $a2DTP[3][0] And $iTicks < $a2DTP[3][1] Then
ConsoleWrite('Временная метка ' & $sTime & ' попадает в период между ' & $aTP[3][0] & ' и ' & $aTP[3][1] & @CRLF)
ElseIf $iTicks > $a2DTP[4][0] Or $iTicks < $a2DTP[4][1] Then
ConsoleWrite('Временная метка ' & $sTime & ' попадает в период между ' & $aTP[4][0] & ' и ' & $aTP[4][1] & @CRLF)
EndIf