Vrátí hodnotu typu Single, která udává počet sekund, jež uplynuly od půlnoci.
Syntaxe
Timer
Poznámky
V Microsoft Windows vrátí funkce Časovač desetinné části sekundy. Na počítačích Macintosh je rozlišení časovače jedna sekunda.
Příklad dotazu
| Výraz | Výsledky: |
|---|---|
| SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); | Vrátí počet sekund, které uplynuly 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. Příklad také používá DoEvents k předání jiným procesům 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