作者yantchen (球童Yanting)
看板Visual_Basic
标题Re: [VB6 ] 一个关於时间问题...
时间Fri May 25 01:12:18 2007
※ 引述《badsan (.........)》之铭言：
: 请问一下各位大大....
: 我目前写的程式中有一段回圈段落....
: 我打算计算从进入回圈...到该回圈结束.....
: 一共经过了多少时间....
: 目前做法是在一开始用time取得时间
: 在回圈结束後...在取得一次time....
: 两者相减...
: 不过这样没法取得ms.....只能到单位秒...
: 请问有办法取到豪秒ms嘛??
: 希望各位大大解惑...感激不尽...^_^
说明档里面的范例
用timer函数
我的电脑跑出来的结果 5.006836 秒
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
PauseTime = 5 ' 设定暂停时间。
Start = Timer ' 设定开始暂停的时刻。
Do While Timer < Start + PauseTime
DoEvents ' 将程式执行权让给其它程式。
Loop
Finish = Timer ' 读取现在时刻。
TotalTime = Finish - Start ' 计算暂停所经过的时间。
MsgBox "Paused for " & TotalTime & " seconds"
Else
End
End If
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.240.186.34