Countdown Funktion

[Frankle]

Hallo!
Ich suche eine Funktion...an dich ich 2 Daten übergebe (das 2. ist das aktuelle) und die Funktion soll dann ausspucken...wie lange noch Zeit ist! Sprich: 1T 2Std 3M

Dankööööö

[jbg]

Code:

procedure TimeDiffStr(dt1, dt2: TDateTime): string;
var h, m, s, s100: Word;
begin
  dt1 := dt2 - dt1;
  DecodeTime(dt1, h, m, s, s100);
  Result := IntToStr(Trunc(dt1)) + ' Tage  ' +
            IntToStr(h) + ' Stunden  ' +
            IntToStr(m) + ' Minuten  ';
end;