返回一个 Single 值,表示自午夜后经过的秒数。
语法
Timer
备注
在 Microsoft Windows 中, 计时器 函数返回秒的小数部分。 在 Macintosh 上,计时器分辨率为 1 秒。
查询示例
Expression |
结果 |
SELECT 计时器 () 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