ca. so:
Delphi-Quellcode:
procedure timer1.ontimer(self); //intervall = 1000 ms
var Systemzeit, InetZeit, Differenz : TTime;
begin
Internetzeit := Zeit_aus_Internet;
Differenz := Systemzeit - Internetzeit;
Label1.caption := TimeToStr(Systemzeit - Differenz);
end
(echtzeit-geproggt, kein gewehr
)
MfG Lefko
//Edith: ok, gleich drei lösungen.....