Daten aus Zeit auslesen

[Luzifer666]

Hallo Community!

Ich möchte gerne per Timer jede Sekunde die aktuelle Zeit auslesen und dabei Stunde, Minute und Sekunde in jeweils einer seperaten Variable speichern.
Wie mache ich das?

Danke schonmal im Voraus!

[fkerber]

Hi!

Ein paar Stichworte für dich:

TimeToStr
now
explode
Copy

Hoffe, du kannst damit etwas anfangen.


Ciao Frederic

[Jelly]

Die aktuelle Zeit kriegst du mit now. Zerlegen kannst du diese Zeit mit DecodeTime.

[Luzifer666]

Danke für die Tipps! Hat mich weitergebracht!

[Duffy]

Hallo Luzifer666,
das Ganze kann so funktionieren ...

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  DateTime: TDateTime;
  Year, Month, Day: Word;
  Hour, Min, Sec, MSec: Word;
begin
  DateTime := now;
  DecodeDate(Date, Year, Month, Day);
  DecodeTime(DateTime, Hour, Min, Sec, MSec);
  MaskEdit1.Text := DateTimeToStr(DateTime);
  MaskEdit2.Text := IntToStr(Hour);
  MaskEdit3.Text := IntToStr(Min);
  MaskEdit4.Text := IntToStr(Sec);
  MaskEdit5.Text := IntToStr(MSec);
end;

bye
Claus

[Luzifer666]

Genauso hab ichs gemacht! Danke nochmal an alle!