Delphi/Lazarus: TDateTime aus Tag, Monat, Jahr, Stunden, Minuten und Sekunden generieren

Du brauchst nichts eigenes dafür zu schreiben. Sowohl Delphi als auch Lazarus kennen die Funktion EncodeDateTime, mit der genau das möglich ist. Hier ist ein kleines Beispiel:

uses DateUtils;

var
  ADateTime: TDateTime;
begin
  ADateTime := EncodeDateTime(2020, 1, 1, 20, 00, 00);
  ShowMessage(DateToStr(ADateTime));
  ShowMessage(TimeToStr(ADateTime));
end;

Hier setzen wir die Variable ADateTime auf das Datum 1.1.2020 mit der Uhrzeit 20:00:00. Anschließend geben die sowohl das Datum als auch die Zeit aus.

Wichtig: wir müssen die Unit DateUtils zu unserer USES-Section hinzufügen.
25.10.2015 um 18:59