Thema: Delphi Differenz berechnen

Einzelnen Beitrag anzeigen

Benutzerbild von Sanchez
Sanchez

Registriert seit: 24. Apr 2003
Ort: Neumarkt Stmk
892 Beiträge
 
Delphi XE6 Enterprise
 
#4

Re: Differenz berechnen

  Alt 8. Jul 2003, 21:58
Tach auch,

Sakuras Code beantwortet die Frage schon. Hab mal deine Bezeichnung im Code eingesetzt.

Delphi-Quellcode:
var
  TagCount: Integer;
begin
  TagCount := Trunc(AktuellesDatum.Caption) - Trunc(StrToDateTime
                    (AltesDatum.Caption));

  Label3.Caption := 'Es sind ' + IntToStr(TagCount) + ' Tage.';
end;
Ich denke das willst du haben, oder?

Zur Erklärung: Der Ganzzahlige Teil von TDateTime gaben die Tage an. Du musst nur die Tage des alten Datums von den Tagen vom aktuellen Datum subtrahieren.

mfg Daniel
Daniel
  Mit Zitat antworten Zitat