會傳回 Single,代表午夜之後經歷的秒數。
語法
Timer
註解
在 Microsoft Windows 中, 定時器 函數會傳回一秒的分數部分。 在 Macintosh 上,定時器解析度為一秒。
查詢範例
Expression |
結果 |
SELECT Timer () AS SecondsPast FROM ProductSales GROUP BY Timer () ; |
根據系統時間,傳回從午夜起經過的秒數,並顯示在 [SecondsPast] 欄中。 |
VBA 範例
附註: 下列範例示範如何在 Visual Basic for Applications (VBA) 模組中使用此函數。 如需使用 VBA 的詳細資訊,請在 [搜尋] 旁的下拉式清單中選取 [開發人員參考],並在 [搜尋] 方塊中輸入一個或多個字詞。
此範例使用 Timer 函數來暫停應用程式。 此範例也會使用 DoEvents 在暫停期間收益給其他程式。
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", _ 4)) = vbYes Then PauseTime = 5 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop Finish = Timer ' Set end time. TotalTime = Finish - Start ' Calculate total time. MsgBox "Paused for " & TotalTime & " seconds" Else End End If