Code: Select all
//Time filter function
inputs:
StartTime(NumericSimple),
EndTime(NumericSimple);
If StartTime > EndTime then begin
if (Time > StartTime and Time < 2359) or (Time >= 000 and Time < EndTime) then
BoxTime = true
Else
BoxTime = false;
End;
End;
If StartTime < EndTime then Begin
If (Time > StartTime and Time < EndTime) then
BoxTime = True
Else
BoxTime = False;
End;
End;