＃关于精确的时间！＃

eio

TIME是现在时间，有TIME1-TIME2，如需要表达2.12秒如何表示？

eio

Copyright ©2000 - 2002 www.office-cn.net , 页面执行时间：183.594毫秒 ?

eio

只是要这样的效果,没有可能吗?

cg1

Function displayTimer()
Dim i As Long
Dim a As Single
Dim b As Single
a = Timer

For i = 1 To 10000000
    If i <> -100 Then
    Else
    End If
Next i
b = Timer
Debug.Print b - a
End Function

eio

不知为何,每次b-a都是2.140625

cg1

我这里可以运行

access2000+win20000

Trynew

用API函数：GetTickCount

Option Compare Database
Option Explicit
Dim DatTime  As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Form_Timer()
    Me.标签2.Caption = Left("精确计时：GetTickCount函数取回开机到现在的毫秒数   ", (Len(Me.标签2.Caption) + 1) Mod (Len("精确计时：GetTickCount函数取回开机到现在的毫秒数   ") + 1))
End Sub

Private Sub 命令3_Click()
    DatTime = GetTickCount()
End Sub

Private Sub 命令4_Click()
    MsgBox (GetTickCount() - DatTime) / 1000
End Sub

eio

嘿，好好，不过您的程序让我知道点击鼠标的速度还没有快过2秒的，最快只有2.61秒。

eio

再次感谢TRYNEW和其他热心人士的帮忙！热烈祝贺查询时间取得成功！