AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Countdown der auf Now Zeit zurück greift

Ein Thema von bellyman · begonnen am 3. Dez 2006 · letzter Beitrag vom 15. Jan 2007
 
oldmax

Registriert seit: 27. Apr 2006
Ort: Gieboldehausen
167 Beiträge
 
#5

Re: Countdown der auf Now Zeit zurück greift

  Alt 7. Dez 2006, 08:37
Hi
so geht's auch. Hier mal ein kleiner Test von mir:
Ich habe mal 3 Editfelder und einen Timer auf eine Form gezogen und eine globale Variablen deklariert:

Differenzzeit :TTime; In edit1.Text habe ich '10:00:00' eingetragen= Morgends um 10 ist die Welt....

In Create die Zeit initialisieren
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
   Edit1.Text:='10:00:00'; //Morgends um 10 ist die Welt....
   Edit2.Text:=FormatDateTime('hh:nn:ss',time );//Aktuelle Zeit
   Differenzzeit :=strToTime(Edit2.Text)-Time;
   Edit3.Text:=FormatDateTime('hh:nn:ss',Differenzzeit );// der CountDown läuft..
end;
und im Timer berechnen und visualisieren....

Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Edit2.Text:=FormatDateTime('hh:nn:ss',time );//Aktuelle Zeit
   Differenzzeit :=strToTime(Edit1.Text)-Time;
   Edit3.Text:=FormatDateTime('hh:nn:ss',Differenzzeit );// der CountDown läuft..

   if Differenzzeit <0 then Timer1.Enabled:=False
end;
Gruß oldmax
Noch ist mein Rechner mir zu Diensten.... ansonsten habe ich die Macht ihn zu vernichten !
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:53 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz