Der Datentyp
TDateTime ist nichts anderes als ein
Double.
Wenn du jeweils Start-/End-Uhrzeit in einen solchen Wert konvertierst,
kannst du durch simple "größer/kleiner" Vergleiche testen,
ob ein weiter Wert (
Time()) zwischen diesen liegt.
Effektiver wäre natürlich in diesem Fall, wenn du Datum+Uhrzeit in
der Datenbank als
TimeStamp speicherst, somit
du die Konvertierungen vermeiden kannst.
Delphi-Quellcode:
var
Start, Ende, tmpTime: TDateTime;
begin
LadeZeitenAusDatenbank()
// nehmen wir mal an, Start = '12:00' und Ende = '14:00'
tmpTime := Time();
if (tmpTime > StrToTime(Start)) and
(tmpTime < StrToTime(Ende)) then
machLaempchenAnOderAus();
end;