Delphi-PRAXiS - Delphi Ich versteh das hier garnich

Zitat:

Zitat von borsti1992

Also ich brauche einen Countdown für Silvester kann mir jemand genau erklären wo ich was und wie eingeben muss?

MfG Borsti

Der zweite Teil des Satzes sagt mir, daß Du mit Delphi noch nicht allzu viel Erfahrung gemacht hast, daher etwas genauer erklärt:

1. Label und einen Timer auf ein Formular platzieren
2. Unit "DateUtils" einbinden!!!
3. Im OnTimer-Event folgenden Code ausführen (GETESTET, funktioniert):

Delphi-Quellcode:

			procedure TForm2.Timer1Timer(Sender: TObject);

VAR

  EndDatum : TDateTime;

   Aktuell : TDateTime;

Dazwischen : Integer;

Tage, Stunden, Minuten, Sekunden : Integer;

BEGIN

   // Enddatum eingeben

   EndDatum := EncodeDateTime(2008, 1, 1, 0, 0, 0, 0); // = 1.1.2008 0:00 Uhr

   // Aktuellen Zeitstempel

   Aktuell := Now;

   // Sekunden dazwischen ausrechnen

   Dazwischen := SecondsBetween(Aktuell, EndDatum);

   // Hier kann man nun Sekunden in Tage, Stunden etc. umrechnen, dürfte mathematisch trivial sein

   // KEIN Pseudocode mehr!

   Tage := Dazwischen div (60*60*24);

   Dazwischen := Dazwischen - (Tage * 60 * 60 * 24);

   Stunden := Dazwischen div (60*60);

   Dazwischen := Dazwischen - (Stunden * 60 * 60);

   Minuten := Dazwischen div 60;

   Dazwischen := Dazwischen - ( Minuten * 60);

   Sekunden := Dazwischen;

   // Auf Label anzeigen

   Label1.Caption := Format('Noch %d Tage, %d Stunden, %d Minuten und %d Sekunden bis Silvester!', [Tage, Stunden, Minuten, Sekunden]);

end;

Ein Blick in die Onlinehilfe bezüglich der verwendeten Funktionen ist ggf. auch hilfreich.

Viel Glück,

SCRaT

//EDIT: Code getestet!