Tælle Uptime

Den her ligner:
http://www.eksperten.dk/spm/598935
Er der noget du kan bruge?

Jep, det ligner, men den skal tælle op, ikke ned :)
Men jeg kan vel sikkert lave koden om, så jeg får den modsatte effekt. :)

Husk at include DateUtils i uses.


procedure TForm1.FormCreate(Sender: TObject);
begin
  StartTime := Now;
end;

function TForm1.UpTime: string;
var
  T,h : TDateTime;
  d : integer;
begin
  T := Now - StartTime;
  d := Trunc(DateOf(T));
  h := TimeOf(T);
  Result := Format('%d dage, %d timer,%d minutter og %d sekunder',[d,HourOf(T),MinuteOf(T),SecondOf(T)]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add(UpTime);
end;

ja ja...

function TForm1.UpTime: string;
var
  T : TDateTime;
begin
  T := Now - StartTime;
  Result := Format('%0.0f dage, %d timer,%d minutter og %d sekunder',[DateOf(T),HourOf(T),MinuteOf(T),SecondOf(T)]);
end;