Timer 函数

返回一个 Single 值,表示自午夜后经过的秒数。

语法

Timer

备注

在 Microsoft Windows 中, Timer函数返回秒的小数部分。 在 Macintosh 上,计时器分辨率为1秒。

查询示例

表达式

结果

选择 "Timer" ()作为 SecondsPast 从 ProductSales 分组依据计时器();

返回基于系统时间午夜起经过的秒数,并在列 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

注意:  本页面是自动翻译的,可能包含语法错误或不准确之处。 我们的目的是使此内容能对你有所帮助。 能否告知我们此信息是否有所帮助? 下面是该参考内容的英文版

另请参阅

选择正确的日期函数

扩展你的 Office 技能
了解培训
抢先获得新功能
加入 Office 预览体验计划

此信息是否有帮助?

谢谢您的反馈!

谢谢你的反馈! 可能需要转接到 Office 支持专员。

×