標題: 請問如何計算程式[開始執行]到[結束]的這段時間方式 [打印本頁]

---

作者: m09903020    時間: 2012-8-17 06:33     標題: 請問如何計算程式[開始執行]到[結束]的這段時間方式

如題

請問如何計算程式[開始執行]到[結束]的這段時間方式

不知道是不是Timer這個函數插入程式起始點、程式結束點?

可以請大大寫段小程式稍加講解嗎?  感激不盡!!><"

---

作者: GBKEE    時間: 2012-8-17 07:05

回復 1# m09903020
VBA說明中
Timer 函數範例

1. Dim PauseTime, Start, Finish, TotalTime
   
2.     If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
   
3.         PauseTime = 5    ' 設定暫停時間。
   
4.         Start = Timer    ' 設定開始暫停的時刻。
   
5.         Do While Timer < Start + PauseTime
   
6.             DoEvents    ' 將程式執行權讓給其它程式。
   
7.         Loop
   
8.         Finish = Timer    ' 讀取現在時刻。
   
9.         TotalTime = Finish - Start    ' 計算暫停所經過的時間。
   
10.         MsgBox "Paused for " & TotalTime & " seconds"
    
11.     Else
    
12.         End
    
13.     End If

複製代碼

---

作者: m09903020    時間: 2012-8-20 14:17

回復 2# GBKEE


    謝謝G大，小的學會能應用了 。

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)