Problem mit Countdown

[chrisw]

Einfacher wäre noch:

Delphi-Quellcode:

function CountDownStr : String;
const TheDate = '3.8.2010';
var h,m,s,ts : Word;
begin
  DecodeTime(now,h,m,s,hs);
  Result := IntToStr(DaysBetween(now,StrToDate(TheDate))) + ' Tage' + #13#10 +
            IntToStr(h) + ' Stunden' + #13#10 +
            IntToStr(m) + ' Minuten' + #13#10 +
            IntToStr(s) + ' Sekunden' + #13#10 +
            IntToStr(ts) + ' Tausendstel' + #13#10 +  );
end;