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