會傳回 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
