Time Running in TTimer?

[ug505]

I've tried searching Google without any luck for my problem. My program has a label that tells you how long you have been running the program. I can only get it to show in seconds (using a TTimer.) How could I somehow convert those seconds into hours:minutes:seconds format?

 

[DjangMan]

You could do the math yourself. There are also library routines available out there that will do that for you.

What have you tried so far?

 

[majlumbo]

Go to the 3rd link

http://tinyurl.com/3volw39

 

[djjd47130]

var
TimeStart: TDateTime;

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

procedure UpdateTime;
var
T: TDateTime;
begin
T:= Now - TimeStart;
Label1.Caption:= FormatDateTime('h:n:s.zzz', T);
//format: 5:30:13.230 (Hours / Minutes / Seconds / Milliseconds)
end;

You may also instead want to make use of GetTickCount instead of Now - it calculates milliseconds based on processor up-time rather than the actual date/time.


JD Solutions