[求助]：time如何精确到毫秒

supper-ST

t=time

代码

t=time-t

msbox t

如何精确到毫秒??用秒单位太大了

[此贴子已经被作者于2006-7-16 12:26:00编辑过]

lotustower

精確度

    

Function	Units	Resolution
Now, Time, Timer	seconds	1 second
GetTickCount	milliseconds	approx. 10 ms
TimeGetTime	milliseconds	approx. 10 ms
QueryPerformanceCounter	QueryPerformanceFrequency	same

lotustower

 

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

 lStart = timeGetTime
 Sleep (10) ' 0.010 seconds
 MsgBox timeGetTime - lStart

supper-ST

请问该用哪个算时间呢？我这没有F1帮助

supper-ST

Sub ddd()

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

 lStart = timeGetTime
 Sleep (10) ' 0.010 seconds
 MsgBox timeGetTime - lStart

End Sub

这样运行不了啊，是不是还差些什么没安装？

lotustower

lStart = timeGetTime  ' Start Time
 Sleep (10) ' 0.010 seconds   ' 延遲
 MsgBox timeGetTime - lStart  

lotustower

' Module

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Sub ddd()
 lStart = timeGetTime
 Sleep (10) ' 0.010 seconds
 MsgBox timeGetTime - lStart

End Sub

gvntw

Sub gvntw()
    Dim t
    t = Timer
    代码

    t = Format(Timer - t, "0.000")
    MsgBox t
End Sub

supper-ST

谢谢！~

大猫不吃鱼

gvntw 发表于 2006-7-16 15:38
Sub gvntw()    Dim t    t = Timer    代码  &n ...

谢谢分享，学习了