' If $Reserve.EndHour
'  $SetHour = $Reserve.SetHour
'  $EndHour = $Reserve.EndHour
' Else
'  $SetHour = 8
'  $EndHour = 20
' EndIf
' $MaxHour = $EndHour
' Inc $MaxHour -1
' $TimeSpan = $System.TimeSpan $Reserve.Unit
' $Count = 0
' For $t = $SetHour to $MaxHour
'  Inc $Count $TimeSpan
' Next