怎样在程序中得知本程序的运行时间－程序从启动到现在的时间？(50分)

墨

墨剑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #1

怎样在程序中得知本程序的运行时间－程序从启动到现在的时间？

 

X

xdf_hubei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #2

procedure TForm1.Button2Click(Sender: TObject);
var
b_time:TDateTime;
bbb:integer;
begin
b_time:=now;
Adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(edit2.text);
adoquery1.Open;
Label1.Caption:=inttostr(Adoquery1.RecordCount);
bbb:=DateTimeToTimeStamp(Now).time-DateTimeToTimeStamp(b_Time).Time;
label3.Caption:=inttostr(bbb);
end;
这样可以精确到毫秒级

 

H

HD_Copy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #3

用GetTickCount()：取当前时刻（不是时间）
这样，在FormCreate中取一次，记住，在现在再取一次，相减得一个毫秒数，将其换算成
你所需的时间格式就行了。
这种方法比用Now()好，因为中途万一由于什么原因改了当前时间（比如：改成上个月了）
计算的就不准了

 

Z

zhai_xin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #4

在create中给一个全局变量赋0，放置一个TTimer，按照你的精度需要设置触发间隔，每次
向全局变量加值，这样可以避免更改系统时间所造成的时间差异。

 

L

l_x_yuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #5

用一个timer控件，最好是下载一个多线程的timer控件

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #6

用个timer就行了。

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #7

用HD_copy 的办法就可以了！
begin_time:=GetTickCount()：
end_time:=GetTickCount()：
所用时间：＝end_time－begin_time ；

 

墨

墨剑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #8

结束帖子