Re: [VB6 ] 一個關於時間問題...
※ 引述《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
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 2 之 2 篇):