java的System类有个获取当前毫秒数的方法,同样,vb也有个GetTickCount函数,获取当前个时间的毫秒数。如以下为计算两点时间间隔的代码片段
Dim a As Long, b As
a = GetTickCount
...
b =GetTickCount
MsgBox "时间间隔为"&(b-a)&"毫秒"
Dim a As Long, b As
a = GetTickCount
...
b =GetTickCount
MsgBox "时间间隔为"&(b-a)&"毫秒"