USB-Schnittstelle steuern

[phade]

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;