Hi Celina!
Wie ich sehe ist Dein Problem weitgehend gelöst. Was übrig bleibt, ist das richtige Setzen der Zeitgrenzen.
Ich hoffe, dass das folgende Stück Code Dir weiterhelfen wird:
Delphi-Quellcode:
VonDatumZeit := Date() + EncodeTime(19,00,00,00);
BisDatumZeit := VonDatumZeit;
DecodeTime(Now, Hour, Min, Sec, MSec);
if Hour >= 19
then BisDatumZeit := BisDatumZeit + 1
else VonDatumZeit := VonDatumZeit - 1;
Viele Grüße
Markus
