如何判断两个时间相隔多久？(10分)

C

CPU风扇

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-31

• #1

如 13:20:20 和 18:25:10 前者和后者相距多久？ (结果格式最好也是 00:00:00)
语句如何写？

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-31

• #2

double类型，直接相减就可以了。

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-31

• #3

procedure TForm1.Button1Click(Sender: TObject);
var
l_time: TDateTime;
i: Integer;
begin
l_Time := Now;
for i := 0 to 1000 do
caption := IntToStr(i);
ShowMessage(TimeToStr(Now - l_time));
end;

 

L

lb_icesea79

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-31

• #4

两个时间相减就可以了

 

C

CPU风扇

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-31

• #5

谢谢大家！