Forskel mellem datoer

Forskel = Trunc(Dato1) - Trunc(Dato2);

i dateutils unit'en ligger der nogle func der kan gi dig tiden mellem to dato'er

pellelil, hvordan funker din løsning ???? Kan du ikke komme med et kodeeks. der virker ???

Kodeeksemplet virker skam fint (såfremt at "Forskel" er defineret som en Integer/Word/Single/Double samt "Dato1" og "Dato2" er defineret som TDateTime.

En TDateTime er egentlig en "single" variable (4 byte floating point) og heltalsværdien af denne er indeholder antallet af dage siden en given dato (husker på stående fod ikke lige udgangspunktet), og decimal værdien indeholder klokkeslettet. Ved at lave en "Trunc" på datoen fjerner du decimal værdien og dermed har du kun "datoen" tilbage.

var
  Dato1: TDateTime;
  Dato2: TDateTime;
  Forskel: Integer;
begin
  Dato1 := EncodeDate(2006, 1, 1);
  Dato2 := EncodeDate(2006, 3, 15);
  Forskel := Trunc(Dato2) - Trunc(Dato1);
end;
end;