|
Registriert seit: 8. Dez 2005
Ort: Hohenkammer
298 Beiträge
Delphi 2006 Professional
|
Re: Silvester Countdown
30. Dez 2005, 05:34
Guten Morgen, allerseits.
Ich bin noch Anfänger und sitze momentan im Büro, wo ich kein Delphi installiert habe. Deshalb kann ich meinen Lösungsvorschlag nicht ausprobieren. Ich könnte mir aber folgende Lösung vorstellen:
Zielzeitpunkt ist 1.1.2006, also Neujahr := EnCodeDateTime(2006,1,1,0,0,0,0);
Mit "Now" erhalte ich die momentane Zeit, z.B. 31.12.2005 - 18:00:00
CountDown := Neujahr - Now sollte dann die Zeit bis Neujahr ergeben und Panel1.Caption := DecodeTime(CountDown) die Zeit bis zum Jahreswechsel anzeigen.
Ich hoffe, das funktioniert so.
mfg gfjs
Mein neues Motto (von "Unbekannt"):
Gewinnen: Wenn Du kannst - Verlieren: Wenn Du musst - Aufgeben: NIE!
|