Einzelnen Beitrag anzeigen

Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#6

Re: Countdown (Monate / Tage / Stunden / Minuten / Sekunden)

  Alt 8. Aug 2006, 09:39
Willkommen in der Delphi-PRAXiS, Thomas!

Zitat von Phoenix:
Nun ist die Differenz die Anzahl an Millisekunden zwischen diesen Tagen.
Nicht ganz richtig, oder? In Differenz steht die Zeitspanne zwischen den beiden Daten in Tagen, der Nachkommaanteil gibt dabei den Bruchteil eines Tags an.

Wie Klaus schon richtig bemerkte, ist es nicht sinnvoll, die Anzahl Monate auszugeben. Den Bruchteil kann man sehr einfach mit DecodeTime decodieren:

Delphi-Quellcode:
var irgendwann : TDateTime;
    Differenz : TDateTime;
    h, m, s, ms : Word;
begin
  irgendwann := StrToDateTime('29.09.2006 15:30:00.0');
  Differenz := irgendwann - Now;
  DecodeTime (Differenz, h, m, s, ms);
  Label1.Caption := Format('%d Tage, %d Stunden, %d Minuten, %d Sekunden',
                           [Trunc(Differenz), h, m, s]);
Gruß Hawkeye
  Mit Zitat antworten Zitat