Връща стойност от тип Single, представляваща броя на секундите, изминали след полунощ.
Синтаксис
Timer
Забележки
В Microsoft Windows функцията за таймер връща дробните части от секундата. При Macintosh разделителната способност за таймер е една секунда.
Пример за заявка
|
Израз |
Резултати |
|
Изберете таймер () като SecondsPast от ProductSales GROUP BY таймер (); |
Връща броя на секундите, изминали след полунощ на базата на системното време и показва в колоната 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
