Applies ToAccess за Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Връща стойност от тип 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, 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

Избиране на правилната функция за дата

Нуждаете ли се от още помощ?

Искате ли още опции?

Разгледайте ползите от абонамента, прегледайте курсовете за обучение, научете как да защитите устройството си и още.

Общностите ви помагат да задавате и отговаряте на въпроси, да давате обратна връзка и да получавате информация от експерти с богати знания.