Einzelnen Beitrag anzeigen

Ajin

Registriert seit: 23. Feb 2006
Ort: Mons
252 Beiträge
 
Delphi 2010 Professional
 
#4

Re: CompareDateTime unter TD 2006 ?

  Alt 21. Mär 2007, 11:59
Ich nochmal!

Also die Funktion von shmia läuft ebenfalls und ist 1000 mal intelligenter als meine knauperei.
Es fehlte nur ein kleines Klämmerchen

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 [b]([/b]zeit <= endzeit);
end;
Super Danke !
  Mit Zitat antworten Zitat