谁能告诉我取得某一个函数的运行时间用什么函数吗，我用GetLocalTime,系统却告诉我始末时间不能相减，急！

[yangling18]

如题，我该怎样做呢

[Kevin_Lmx]

不明白你的意思

[ppayun]

很简单啊

var
d1,d2: TDateTime;
begin
d1 := now;
//此处执行你的函数
d2 := now;
ShowMessage(FloatToStr((d2-d1)*24*3600));//显示执行时间，单位是秒；
end;

[yangling18]

还有别的函数吗

[bee2518]

GetTickCount函数
procedure TForm1.FormCreate(Sender: TObject);
var
i:word;
begin
I:=GetTickCount ;
sleep(500);
showmessage(inttostr(GetTickCount - i));
end;

[yinzhiw]

GetTickCount
是毫秒

[xjwy]

procedure TForm1.Button1Click(Sender: TObject);
VAR
Y,M,D:WORD;
begin
Y:=2004;M:=10;D:=31;
IncAMonth(Y,M,D,1);

end;

procedure TForm1.Button2Click(Sender: TObject);
VAR
sd,td:TDateTime;
y,m,d:word;
begin
y:=2000;
m:=11;
d:=2;
sd:=encodedate(y,m,d);
td:=IncDay(sd,100);
Label1.Caption:=DateTimeTostr(td);
end;

procedure TForm1.Button3Click(Sender: TObject);
VAR
sd,td:TDateTime;
h,m,s:word;
begin
h:=12;
m:=34;
s:=2;
sd:=encodetime(h,m,s,0);
td:=Inchour(sd,1);
Label2.Caption:=DateTimeTostr(td);
end;

procedure TForm1.Button4Click(Sender: TObject);
VAR
sd,td:TDateTime;
h,m,s:word;
y,mON,d:word;
begin
y:=2000;
mON:=11;
d:=2;
h:=12;
m:=34;
s:=1;
sd:=EncodeDateTime(Y,MON,D,h,m,s,0);
td:=IncMilliSecond(sd,1000);
Label3.Caption:=dATETIMETostr(td);
end;