Vrátí hodnotu typu Single, která udává počet sekund, jež uplynuly od půlnoci.
Syntaxe
Timer
Poznámky
V systému Microsoft Windows funkce Časovač vrací zlomkové části sekundy. Na Macintoshi je rozlišení časovače jednu sekundu.
Příklad dotazu
|
Výraz |
Výsledky |
|
SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); |
Vrátí počet sekund uplynulých od půlnoci na základě systémového času a zobrazí se ve sloupci SecondsPast. |
Příklad jazyka VBA
Poznámka: Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.
V tomto příkladu se k pozastavení aplikace používá funkce Časovač . V příkladu se také používá DoEvents k tomu, aby se během pozastavení ustoupily jiným procesům.
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
