Weltzeituhr programmieren

[-Apogee-]

Hi an alle erstmal.

Ich bin ein blutiger anfänger, habe gerade delphi 4 unter die griffel bekommen, und wollte gestern mal eine "Weltzeituhr" programmieren.

Die lokalzeit krieg ich zum laufen mit der Timer komponente.

Wenn ich jetzt aber zB. die Greenwich Mean Time anzeigen will muss ich 1 std. subtrahieren.

Wie kann ich das umsetzen?

Hier schon mal was ich hab

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

Label1.Caption:=TimeToStr(Now);

end;

Danke für die Hilfe

[sakura]

Herzlich willkommen,

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
const
  EineStunde = 1 / 24;  // 1 Tag hat 24 Stunden
begin

  Label1.Caption:=TimeToStr(Now);
  Label2.Caption:=TimeToStr(Now - EineStunde);  //GMT
  Label3.Caption:=TimeToStr(Now - EineStunde * 6);  //New York

end;

[Alexander]

willst du jetzt die Uhrzeit von einem Timeserver abfragen, oder nur eine Stunde von der REchnerzeitabfragen??

[-Apogee-]

Ich will immer nur von der lokalen Rechnerzeit Subtrahieren bzw. Dividieren.

Aber das es so einfach ist d'oh

Besten dank ich teste es gleich mal aus.

[MathiasSimmack]

Ich schlage spontan mal den API-Befehl GetSystemTime vor, der eine "TSystemTime"-Variable als Parameter erwartet. Der Befehl liefert die UTC-Zeit, ganz ohne Subtraktionen.

Und die "TSystemTime"-Variable bietet bereits Zugriff auf Stunde, Minute, Sekunde, ...

Code:

var
  st : TSystemTime;
begin
  GetSystemTime(st);
  ShowMessage(Format('%d:%d',[st.wHour,st.wMinute]));
end;

(is´n blödes Beispiel, geht aber.)