Home » Tipps & Tricks » Object Pascal » Datumswerte » Datum und Uhrzeit ermitteln

Datum und Uhrzeit ermitteln

In Delphi gibt es in der Unit SysUtils eine Funktion namens Now, die das aktuelle Datum mit Uhrzeit zurückgibt. Mithilfe der Funktionen TimeToStr, DateToStr und DateTimeToStr lässt sich das Datum und die Zeit so formatieren, wie es der Benutzer in seinem Windows eingestellt hat. Für die Anzeige eines Datums und der Uhrzeit ist diese Variante zu bervorzugen:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  lblUhrzeit.Caption:=TimeToStr(Now)+' Uhr';
  lblDatum.Caption:=DateToStr(Now);
  lblDatumUhr.Caption:=DateTimeToStr(Now)+ ' Uhr';
end;

Now enthält, wie bereits oben geschrieben, ein komplettes Datum inkl. Zeitangabe. Einzeln gibt es diese Informationen in Form der Funktion Date (Datum) und Time (Zeit), die ebenfalls einen TDateTime-Wert zurückgeben. TDateTime ist eine Fließkommazahl, deren ganzzahliger Anteil die Tage angibt, die seit dem 30.12.1899 00:00:00 vergangen sind. Der Nachkommaanteil gibt die Zeit in Bruchteilen von Tagen an. 0,5 entspricht also 12 Stunden.Der umgekehrte Weg, aus einem String einen TDateTime zu erhalten, ist ebenfalls möglich. Zuständig sind dafür die Funktionen StrToTime, StrToDate und StrToDateTime. Dabei kann es zu Problemen kommen, wenn der Benutzer ein anderes Datumsformat als erwartet eingestellt hat. Weitere Informationen zum eingestellten Datumsformat erhalten Sie in der Onlinehilfe unter dem Stichwort „Formatvariablen“ und unter den o.g. Funktionsnamen.Um ein Datumsformat unabhängig vom eingestellten Format des Betriebssystem zu formatieren, gibt es die Funktion FormatDateTime. Der Funktion wird zunächst ein Formatierungsstring und anschließend ein TDateTime-Wert übergeben:

procedure TForm1.Button1Click(Sender: TObject);
begin
 lblDatumUhrzeit.Caption := FormatDateTime('dd.mm.yyyy, hh:nn:ss', now);
end;

Eine mögliche Ausgabe wäre hier ‚14.10.2003, 10:26:05‘. Weitere Parameter, Informationen und Beispiele zum Formatieren finden sie in der Onlinehilfe unter dem Stichwort „FormatDateTime (Funktion)“.Weitere Informationen zu diesem Thema finden Sie mithilfe einer Suchmaschine ihrer Wahl, beispielsweise unter den Stichworten: Datum Zeit Delphi