Obsah
Popis časovače
Vrátí hodnotu Single představující počet sekund, které uplynuly od půlnoci.
Jednoduché příklady časovače
Zde je jednoduchý příklad časovače:
123 | Dílčí časovač_Příklad ()Časovač MsgBoxEnd Sub |
Syntaxe časovače
V editoru VBA syntaxe pro funkci Timer.
1 | Časovač |
Funkce Timer neobsahuje žádné argumenty:
Příklady funkce časovače Excel VBA
Pomocí následujícího příkladu kódu zkuste porovnat sek1 a sek2.
Potom můžeme snadno znát význam funkce časovače.
123456789101112131415161718192021222324252627 | Dílčí časovač_Příklad1 ()Dim sec1 jako jedenDim sec2 As Longsec1 = Časovačsec2 = GetSecondsFromMidnightMsgBox "sec1 =" & sec1 & vbCrLf & _"sec2 =" & sec2End SubFunkce GetSecondsFromMidnight () jako dlouháDim dt As DateDim h As IntegerDim m jako celé čísloDim s jako celé číslodt = Nyníh = hodina (dt)m = minuta (dt)s = sekunda (dt)min = h * 60 + ms = min * 60 + sGetSecondsFromMidnight = sKoncová funkce |
Pomocí funkce Timer můžeme měřit, jak dlouho by trvalo spuštění části kódu VBA.
1234567891011121314151617 | Dílčí časovač_Příklad2 ()Dim startSec jako jedenDim endSec jako jedenDim i As LongstartSec = Časovač„Začátek testování kódu VBAPro i = 1 až 500 000Události DoEPříště já'Konec kódu VBA k testováníendSec = ČasovačMsgBox „Trvalo“ & CStr (endSec - startSec) & „s.“End Sub |