Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Countdown


olliistmeinname - Mo 14.04.03 11:31
Titel: Countdown
Hi !

Ich brauche Source , das die Verbleibenden Tage ,Stunden und Minuten zu einem Datum abzählt. Ich weiß nicht mehr weiter :!:

-Danke-

mfg Olli


Delete - Mo 14.04.03 15:59

Mit now bekommst du das aktuelle Datum und Uhrzeit. Kuck mal nach den Datumsroutinen in der Hilfe.


Klabautermann - Mo 14.04.03 16:47

Und schaue dir auch mal an, wie der Datentyp tDateTime aufgebaut ist.

Gruß
Klabutermann


olliistmeinname - Mo 14.04.03 16:59

Danke erstmal !


Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
procedure TForm1.Button3Click(Sender: TObject);


var   mai16   Heute   countdown : TDate;

begin

  mai16 := StrToDateTime('16.04.2003');
  heute := now;
  countdown := Heute - Mai16;
end;

end.


Das geht ! (Ich weiß nicht ob ich Heute - Mai16 rechen soll oder andersrum , is aber egal)
Das ist aber schön und gut , jedoch möcht ich , dass es in einem Label angeziegt wird.


Quelltext
1:
label.caption := countdown;                    


Dieses geht nicht , da der Typ nicht passt .
Wie wandle ich ein Datum in eine String - variable ?
Oder wie kann ich das Datum ambesten auf dem Bildschirm bringen ?


-Danke schon mal-


Delete - Mo 14.04.03 17:03

Date(Time)ToStr - logisch oder? :wink:


Klabautermann - Mo 14.04.03 17:10

Bei FormatDateTime, kannst du das Ausgabeformat sogar noch beeinfrussen, musst dich aber vorher mit den Formatstrings auseinandersetzen.

Gruß
Klabautermann

PS: Sorry Luckie irgenwie muss ich hier immer das letzte Wort haben ;).


Delete - Mo 14.04.03 17:14

Klabautermann hat folgendes geschrieben:

PS: Sorry Luckie irgenwie muss ich hier immer das letzte Wort haben ;).

Macht ja nichts, so ergänzt man sich eben. :wink:


olliistmeinname - Mo 14.04.03 17:22

Vielen Dank !!!!!!!!!!!

Aber ich hab wieder ein problem . Muss nur ausformulieren :D


olliistmeinname - Mo 14.04.03 17:33

so !!


Quelltext
1:
2:
  heute := now;
  DecodeDate(heute, Year, Month, Day);



So bekomme ich das Datum in die Bestandteile .
Möchte diese auf ein Label bringen.
Doch Year , Month und Day sind Typ Word und mit ...


Quelltext
1:
label.caption := year ;                    


...geht es nicht da es ein string sein muss . Also wie wandele ich word in string um ?

mfg Olli


Delete - Mo 14.04.03 17:35

Genauso, wie ein Integer. IntToStr.


olliistmeinname - Mo 14.04.03 17:42

Vielen DANK für die Hilfe !!!!!!!!!!!!!!!!!!!! :D
Es geht !!!!!!!!!!!!

Wenn ich weitere fragen hab , dann poste ich wieder hier rein !!!

mfg

OLLI


olliistmeinname - Mo 14.04.03 18:11

wieder ne frage !!

Wie rechne ich die Differenz zwischen dem heutigen Datum und dem 16 mai aus ?


Delete - Mo 14.04.03 18:15

Mach mal die Hilfe auf und dann tippst du im Index mal day... ein.


olliistmeinname - Mo 14.04.03 18:42

Anstatt , dass ich das ganze Forum mit Posts erschlage , sollte ich mich selbst informieren und wenn es wirklich nicht mehr geht dann kann man ja was posten. ich sollte auch mal die hilfe öffnen oder ihn alten Posts suchen.


Tino - Di 15.04.03 08:32

olliistmeinname hat folgendes geschrieben:
Wenn ich weitere fragen hab , dann poste ich wieder hier rein !!!

Bitte für jede Frage ein eigenes Topic in der richtigen Sparte erstellen. :wink:

Gruß
Tino


olliistmeinname - Di 15.04.03 11:19
Titel: ja klar
Ich meine nur dann , wenn es zu dem Topic passt ! :wink: