VB 记录时间

来源:百度知道 编辑:UC知道 时间:2024/05/13 10:38:19
用VB编程,我需要记录从一段程序开始到在键盘上按下某键的时间,要精确到毫秒。以前有朋友跟我说过用datediff("s",time1,time2)这个,好像只能精确到秒。
谢谢!

思路:

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

Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
tl = GetTickCount
End Sub
Private Sub Text3_KeyUp(KeyCode As Integer, Shift As Integer)
tl = (GetTickCount - tl)
End Sub

'tl就是精确到毫秒的时间

精确到毫秒.....不可能的事情~~~~发射火箭都没这么准,你准备发射什么呢?

======================
理论上是有一些方法可以做到的,就拿Timer来说,你可以设置时间间隔为一毫秒,但是实际上,每一次间隔都是不准的,误差可能超过几十毫秒,系统只能保证平均值。

啊,毫秒,很短的时间啊,那不就跟没有时间间隔一样啊