关于时间的问题

[sc74]

在vb中,如何计算时间点t1到时间点t2之间有几秒钟?

[who]

t1=Timer
........
do something
........
t2=timer
dt=t2-t1 'dt为浮点数，其整数单位为秒

也可以用API函数GetTickCount（），单位为毫秒

[shines77]

Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long

............
Dim T As Long
Dim T1 As Long, T2 As Long
T1 = GetTickCount()
................
'执行一段代码
................
T2 = GetTickCount()
'相隔时间(单位为秒)
T= (T2 - T1) / 1000

.................

[sc74]

请问：必须用API函数吗？有无其它方法？

[Putao]

初中生都会做的题目!!!

[shines77]

T1 = Timer
........
do something
........
T2 = Timer
Dt = T2 - T1 'Dt为浮点数，其整数单位为秒

这个方法就不是API啊，简单。