请教一下：如果得到两个时间相差的秒数？(50分)

冷

冷血修罗

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #1

我给定了一个时间和一个秒数，如何判定当前时间和我给定的时间相差的秒数是否与我给出的秒数相等呢？
谢谢。50分。

 

N

Nstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #2

GetTickCount函数？精确到毫秒

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #3

function Delta(ATime: TTime): Integer;
begin
Result:=Round(Abs(Delta-Now)*SecsPerDay)
end;

 

F

fansnaf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #4

同意楼上的楼上的

 

B

bubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #5

encodeTime
例子delay
x秒，y毫秒
procedure Tfrm_About.Delay(x,y:word);
var
timeout:TDateTime;
begin
timeout:=now+encodeTime(0,x div 60,x mod 60,y);
While now<timeout do Application.ProcessMessages;
end;
自行修改

 

A

Adnil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #6

如果你用的是Delphi 6的话，直接使用SecondsBetween函数即可，加上uses DateUtils;

 

T

tqhuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #7

用up方法，

 

N

Nizvoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #8

学习~

 

P

pcc_mmz1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #9

用encodetime() 函数看看。
它可以将一个Tdatetime类型的时间析取出秒数。

 

冷

冷血修罗

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #10

请请大家了。