Delphi/Lazarus: Jahr, Monat und Tag in DateTime-Format konvertieren

Das ist ohne weiteres sowohl in Delphi als auch Lazarus möglich. Wir benutzen dafür die Funktion EncodeDate. Hier ist ein kleines Beispiel.

var
  ADate: TDateTime;
  AYear, AMonth, ADay: integer;
begin

  ADay   := 1;
  AMonth := 1; 
  AYear  := 2000; 

  ADate  := EncodeDate(AYear, AMonth, ADay);

  ShowMessage(DateToStr(ADateTime));
end;

Wir haben Variablen für das Jahr, dem Tag und den Monat und benutzen EncodeDate um daraus ein Datum zu machen und in einer TDateTime-Variable abzuspeichern. Anschließend zeigen wir das neue Datum mit ShowMessage() an.
22.11.2015 um 15:59