Weltzeituhr programmieren

[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;