Zeitdifferenz "ordentlich" formatiert darstellen

[paresy]

Delphi-Quellcode:

procedure TfrmScriptEvents.tmrRunningTimer(Sender: TObject);
const sDay  = 60 * 60 * 24;
      sHour = 60 * 60;
      sMin  = 60;
var xSecs : Integer;
    xMins : Integer;
    xHours: Integer;
    xDays : Integer;
begin

  xSecs := Abs(SecondsBetween(Now, fNextRun));

  xDays  := xSecs div sDay;
  xHours := (xSecs - xDays * sDay) div sHour;
  xMins  := (xSecs - xDays * sDay - xHours * sHour) div sMin;
  xSecs  := xSecs - xDays * sDay - xHours * sHour - xMins * sMin;

  if (xDays > 0) or (xHours > 0) or (xMins > 0) or (xSecs > 0) then
   lblNextRun.Caption := Format('%d + %.2d:%.2d:%.2d', [xDays, xHours, xMins, xSecs])
  else
   begin
    lblNextRun.Caption := 'Running';
    FormShow(Self); //update
   end; 

end;

hier nen aussschnitt aus nem code den ich mal in nem projekt benutzt hatte... und nen coutdown anzuzeigen und wenn er die differenz <= 0 ist dann zeigt er "running" an.

paresy