Delphi/Lazarus: DateTime in Tag, Monat, Jahr, Stunde, Minute und Sekunde splitten

Es ist gar nicht nötig, eine neue eigene Funktion für diesen Anlass zu schreiben, denn sowohl Delphi als auch Lazarus kommen bereits mit einer fertigen Funktion dafür. Es ist die Funktion DecodeDateTime aus der Unit DateUtils, die wir natürlich zu unserer USES-Section hinzufügen müssen.

Alternativ können wir auch die Funktionen DecodeDate und DecodeTime benutzen. Hier ist ein kleines Beispiel für alle drei Funktionen.

uses DateUtils;

var
  ADateTime: TDateTime;
  AYear, AMonth, ADay: integer;
  AHour, AMinute, ASecond: integer;
begin
  ADate  := now;	
 
  // Version mit DecodeDateTime
  DecodeDateTime(ADate, AYear, AMonth, ADay, AHour, AMinute, ASecond);

  // oder Alternative mit DecodeDate und DecodeTime
  DecodeDate(ADate, AYear, AMonth, ADate);
  DecodeTime(ADate, AHour, AMinute, ASecond);

  ShowMessage('Jahr: '    + IntToStr(AYear));
  ShowMessage('Monat: '   + IntToStr(AMonth));
  ShowMessage('Tag: '     + IntToStr(ADay));
  ShowMessage('Stunde: '  + IntToStr(AHour));
  ShowMessage('Minute: '  + IntToStr(AMinute));
  ShowMessage('Sekunde: ' + IntToStr(ASecond));

end;

Zunächst setzen wir die Variable ADate auf die aktuelle Zeit. Anschließend möchten wir diese Zeit in die einzelnen Bestandteile (Jahr, Monat, Tag, Stunde, Minute und Sekunde) aufteilen, wofür wir jeweils einzelne Integer-Variablen deklariert haben.

Entweder benutzen wir nur die Funktion DecodeDateTime, der wir alle Variablen übergeben können und entsprechend die einzelnen Werte gesetzt bekommen oder wir benutzen nacheinander die Funktionen DecodeDate und DecodeTime.

Anschließend stehen in den Variablen AYear, AMonth, ADay, AHour, AMinute und ASecond unsere Zeitangaben und wir geben alle nacheinander mit der Funktion ShowMessage() aus.
21.09.2015 um 18:31