Antal dage mellem 2 datoer, Delphi 5

AntalDage:=Trunc(Dato2-Dato1);

Og et svar hvis du kan bruge det. Koden er den samme som Daysbetween.

Det skal nok passe at D5'eren ikke har en DateUtils-unit.

TDateTime er ellers meget ligetil, idet det er en Double-type hvor heltalsdelen er antallet af dage siden 31-12-1899 mens decimaldelen er milisekunder siden midnat. Det er altså ikke raketvidenskab.

Spørgsmålet er her om man skal barbere decimalerne væk før eller efter de to datoer subtraheres.

Hvis det skal være hele dage altså 24 timer så skal decimalerne først væk efter at de 2 datoer substraheres ellers kan man få et forkert resultat:

F.eks.
Dato1:=1.4;
Dato2:=2.2;

Antallet af dage imellem er 0 (der mangler 0,2 før der er gået 24 timer)

Antal:=Trunc(Dato2)-Trunc(Dato1)=1; // forkert
Antal:=Trunc(Dato2-Dato1)=0; // korrekt

Fra DateUtils :

function SpanOfNowAndThen(const ANow, AThen: TDateTime): TDateTime;
begin
  if ANow < AThen then
    Result := AThen - ANow
  else
    Result := ANow - AThen;
end;

function DaySpan(const ANow, AThen: TDateTime): Double;
begin
  Result := SpanOfNowAndThen(ANow, AThen);
end;


function DaysBetween(const ANow, AThen: TDateTime): Integer;
begin
  Result := Trunc(DaySpan(ANow, AThen));
end;

Mange tak for alle jeres forslag.

Jeg benyttede mig af kronings forslag