Vrátí hodnotu typu Jednoduchá přesnost, která udává počet sekund, jež uplynuly od půlnoci.

Syntaxe

Timer

Poznámky

V systému Microsoft Windows vrací funkce Timer i zlomky sekund. V systému Macintosh je rozlišením časovače jedna sekunda.

Příklad

 Poznámka:   Následující příklady uvádějí použití této funkce v modulu jazyka Visual Basic for Applications (VBA). Další informace o práci s jazykem VBA získáte tak, že klepnete na položku Referenční informace pro vývojáře v rozevíracím seznamu vedle pole Hledat a do pole pro hledání zadáte jeden nebo více pojmů.

V tomto příkladu je pomocí funkce Timer pozastavena aplikace. V příkladu je rovněž použita funkce DoEvents, která umožňuje během pozastavení provádět jiné procesy.

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