計時器功能

套用到
Microsoft 365 Access Access 2024 Access 2021 Access 2019 Access 2016

會傳回 Single，代表午夜之後經歷的秒數。

語法

Timer

註解

在 Microsoft Windows 中， 計時器 功能會回傳秒的分數部分。 在 Macintosh 上，計時器解析度是一秒。

查詢範例

運算式 結果
選擇計時器 () As SecondsPast 來自 ProductSales 群組 按計時器 () ; 回傳自午夜以來的經過秒數，根據系統時間，並顯示在「SecondsPast」欄位。

VBA 範例

注意

下列範例示範如何在 Visual Basic for Applications (VBA) 模組中使用此函數。 如需使用 VBA 的詳細資訊，請在 [搜尋] 旁的下拉式清單中選取 [開發人員參考]，並在 [搜尋] 方塊中輸入一個或多個字詞。

此範例使用 計時 器功能來暫停應用程式。 範例中也使用 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

選擇合適的約會功能