CompareDateTime unter TD 2006 ?

[shmia]

Delphi-Quellcode:

function MittenInDerNacht(zeit:TDateTime):boolean;
var
   startzeit, endzeit: TDatetime;
begin
   zeit := Frac(zeit);   // Uhrzeit Anteil abtrennen; das Datum wird also ausgeblendet
   startzeit := EncodeTime(1,0,0,0);  // 1 Uhr
   endzeit := EncodeTime(8,0,0,0);    // 8 Uhr
   result := (zeit >= startzeit) and zeit <= endzeit);
end;