午前 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, TotalTimeIf (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 EndEnd If
