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 vrací funkce Timer zlomkové části sekundy. V systému Macintosh je rozlišením časovače jedna sekunda.
Příklad dotazu
Výraz | Výsledky |
---|---|
Vyberte Timer () jako SecondsPast FROM ProductSales GROUP BY (); |
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 funkce Timer používá k pozastavení aplikace. V příkladu se také používají k získání dalších procesů během pozastavení.
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
Poznámka: Tato stránka byla přeložena automaticky a může obsahovat gramatické chyby nebo nepřesnosti. Naším cílem je to, aby pro vás byl její obsah užitečný. Mohli byste nám prosím dát vědět, jestli vám informace pomohly? Pokud chcete, můžete se podívat na anglickou verzi článku.