午前 0 時 (真夜中) から経過した秒数を単精度浮動小数点数型 (Single) で返します。
構文
タイマー
解説
Microsoft Windows では、 Timer 関数は秒の小数部を返します。 Macintosh では、タイマーの解像度は 1 秒です。
クエリの例
式 |
結果 |
SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); |
システム時刻に基づいて午前 0 時から経過した秒数を返し、列 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