I thought TDateTimes store the time in milli-seconds so that doing the
following should work (at least for times in the same day):
var
start_time, end_time : TDateTime;
duration : double;
begin
start_time := Now;
...
end_time := Now;
duration := (end_time - start_time) * 1000; {duration in seconds...}
ShowMessage('process took'+Format('%f',[duration])+' seconds');
end;
For a process that took 2:21:43 (2 hours, 21 minutes), last night my
code showed '97.22 seconds'. Mmmh - I need to decode the date_times?
Grant Black
Software Developer
SmartMove (NZ) Ltd
Phone: +64 9 361-0219 extn 719
Fax : +64 9 361-0211
Email: [EMAIL PROTECTED]
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
