title image


Smiley Re: Zeitraum und Datum
Hi



Es gibt da zwei Funktionen: "Daysbetween" und "Secondsbetween" ab Delphi6. Ich glaube die sind was für Dich. Wenn Du <= D5 hast, hier die Quelltexte dafür.



Grüße

Dennis





uses SysUtils;



function SecondSpan(const ANow, AThen: TDateTime): Double;

begin

Result := SecsPerDay * SpanOfNowAndThen(ANow, AThen);

end;

function DaySpan(const ANow, AThen: TDateTime): Double;

begin

Result := SpanOfNowAndThen(ANow, AThen);

end;

function SecondsBetween(const ANow, AThen: TDateTime): Int64;

begin

Result := Trunc(SecondSpan(ANow, AThen));

end;

function DaysBetween(const ANow, AThen: TDateTime): Integer;

begin

Result := Trunc(DaySpan(ANow, AThen));

end;

function DaysBetween(const ANow, AThen: TDateTime): Integer;

begin

Result := Trunc(DaySpan(ANow, AThen));

end;



Signatur:
Mail mir: klick (Spamschutz: Bitte den ersten . mit dem @ austauschen.)
Dennis Böge Heisefizierung

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: