請問如何計算程式[開始執行]到[結束]的這段時間方式
- 帖子
- 40
- 主題
- 13
- 精華
- 0
- 積分
- 69
- 點名
- 0
- 作業系統
- w7
- 軟體版本
- office07
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-4-24
- 最後登錄
- 2012-8-20
|
請問如何計算程式[開始執行]到[結束]的這段時間方式
如題
請問如何計算程式[開始執行]到[結束]的這段時間方式
不知道是不是Timer這個函數插入程式起始點、程式結束點?
可以請大大寫段小程式稍加講解嗎? 感激不盡!!><" |
|
|
|
|
|
|
|
- 帖子
- 40
- 主題
- 13
- 精華
- 0
- 積分
- 69
- 點名
- 0
- 作業系統
- w7
- 軟體版本
- office07
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-4-24
- 最後登錄
- 2012-8-20
|
3#
發表於 2012-8-20 14:17
| 只看該作者
回復 2# GBKEE
謝謝G大，小的學會能應用了 。 |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2012-8-17 07:05
| 只看該作者
回復 1# m09903020
VBA說明中
Timer 函數範例- 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
|
|
|
|
|
|
|
|
