返回列表 上一主題 發帖

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

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

如題

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

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

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

回復 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
複製代碼

TOP

回復 2# GBKEE


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

TOP

        靜思自在 : 改變自己是自救,影響別人是救人。
返回列表 上一主題