Countdown Funktion

[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;