0 0 Stimmen

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

Frage von Gast | 21.11.2015 um 15:37 Uhr

Ich habe eine Integer-Variable für Jahr, Monat und Tag. Gerne würde ich daraus ein Datum im TDateTime-Format generieren und die Daten entsprechend konvertieren.

Ist das möglich mit Delphi oder Lazarus?

AntwortenPositivNegativ

Delphianer

Profil anzeigen | Nachricht
Avatar
-2Beste Antwort
2 Stimmen

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 Uhr

AntwortenPositiv Negativ
Antworten

Ähnliche Themen

Wichtiger Hinweis

Die Beiträge auf askingbox.de sind Beiträge von Nutzern und sollen keine professionelle Beratung ersetzen. Sie werden nicht von Unabhängigen geprüft und spiegeln nicht zwingend die Meinung von askingbox.de wieder. Mehr erfahren.

Jetzt mitmachen

Stellen Sie Ihre eigene Frage oder schreiben Sie Ihren eigenen Artikel auf askingbox.de. So gehts.