Differenz berechnen

[Luckie]

Was ist denn da so schwer:

Delphi-Quellcode:

//Label1 
AltesDatum.Caption:='1.7.2003', 
//Label2 
AktuellesDatum.Caption:='8.7.2003'

Wandel beide Daten mit StrToDate in einen TDateTiem Wert um und dann nimmst du DaysBetween und du hast die Tage dazwischen als Integer.

[Duffy]

Hallo Uncle Cracker,
Luckie hat Recht! aber so sollte es glaube ich sein.

Delphi-Quellcode:

function DaysBetween2(Datetime1, DateTime2: TDateTime): Integer;
begin
  if DateTime1 < Datetime2 then
  begin
    Result := Trunc(DateTime2 - DateTime1);
  end
  else
  begin
    Result := Trunc(DateTime1 - DateTime2);
  end;
end;

bye

[Uncle Cracker]

Thx 2 all

Hab's nun dank eurer Hilfe endlich begriffen und hinbekommen (hat aber 'ne Weile gedauert)

[Daniel B]

Hallo,

ich habe hier noch ein paar Beispiele gefunden...

Grüsse, Daniel