Delphi/Lazarus: Tag, Monat und Jahr aus DateTime-Format extrahieren

Sowohl Delphi als auch Lazarus kennen eine Funktion dafür, um genau dies auszuführen. Die Funktion heißt DecodeDate und kann folgendermaßen aufgerufen werden:

var
  ADate: TDateTime;
  AYear, AMonth, ADay: word;
begin
  ADate  := now;	
 
  DecodeDate(ADate, AYear, AMonth, ADay);

  ShowMessage(IntToStr(AYear));
  ShowMessage(IntToStr(AMonth));
  ShowMessage(IntToStr(ADay));
end;

Hier speichern wir zunächst das aktuelle Datum in der Variable ADate. Gleichzeitig haben wir die IVariablen AYear, AMonth und ADay definiert, in die später unser Jahr, unser Monat und der Tag geschrieben werden. Dafür übergeben wir alle Variablen der Funktion DecodeDate(). Zuletzt geben die mit ShowMessage() das Ergebnis aus.
Letztes Update am 24.11.2023 | Erstellt am 24.11.2015