02 Stimmen

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

Frage von Gast | 23.11.2015 um 13:25

Ich habe ein Datum im Format TDateTime vorliegen, benötige aber die einzelnen Segmente als Integer-Variable. Ich möchte also aus der DateTime Variable je eine individuelle Integer-Variable für die entsprechenden Tag, dem Monat und das Jahr herauslösen.

Gibt es dafür eine Funktion oder kann mir jemand helfen, wie ich das bewerkstelligen kann?

AntwortenPositivNegativ
Avatar
0Beste Antwort0 Stimmen

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: integer;
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 Integer-Variablen 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.
24.11.2015 um 18:40

AntwortenPositiv Negativ
Antworten

Ähnliche Themen

Wichtiger Hinweis

Bitte beachten Sie: 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.