Differenz zwischen zwei Datum ausrechnen

[AlexII]

Hallo,

ich muss Anzahl der Tage zwischen zwei Datum ausrechnen, und zwar:

Ergebnis := 01.01.aktuelles Jahr - aktuelles Datum; Wie man sieht wird das Ergebnis nie größer als 366 sein und das brauche ich gerade.

Bitte helft mir, allein versuche ich das schon seit Stunden zu lösen und ohne Erfolg.

PS. Am besten das mit FormatDateTime-Funktion lösen, damit das nicht nur auf nem deutschen Windows funktioniert. Danke!

[DeddyH]

Schau Dir mal DateUtils.DaysBetween etc. an.

[himitsu]

du kannst dir leicht per EncodeDateTime bzw. YearOf auf 'nem Now das Jahr rausholen,
dieses dann z.B. per DecodeDateTime bzw DecodeDateDay zu einem Jahresanfang zusammensetzen und dann brauchst du nur noch die Differenz (z.B. siehe Vorredner) ausrechnen.

[DeddyH]

Der erste Teil war irgendwie an mir vorübergegangen, ich sollte vielleicht doch einmal die Frührente beantragen.

[AlexII]

Soweit bin ich auch schon, hab so viel über Datumsformate usw. gelesen. Hab aber nix außer Haufen Informationen.

[himitsu]

schau dir doch einfach mal die Funktionen in der OH an ... mehr brauchst du eigentlich nicht dafür

alles liegt vermutlich in der Unit DateUtils

TDateTime
Now
EncodeDateTime oder YearOf
DaysBetween
DecodeDateTime oder DecodeDateDay

sowie StrToDate, StrToDateTime, DateToStr und DateTimeToStr

[Chemiker]

Hallo AlexII,

versuchst mal so:

Delphi-Quellcode:

var
  DatAnf: TDateTime;
  DatEnd: TDatetime;
begin
  DatAnf:= Now();
  DatEnd:= StrToDateTime(edDatEnd.Text);
  edDatumAusgabe.Text:= inttoStr(round((DatAnf)-(DatEnd)));

Bis bald Chemiker

[AlexII]

Danke euch, hab jetzt die Lösung