返回列表 上一主題 發帖

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

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 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
複製代碼

TOP

        靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。
返回列表 上一主題