Obsah
Popis časovača
Vráti hodnotu Single predstavujúcu počet sekúnd, ktoré uplynuli od polnoci.
Jednoduché príklady časovača
Tu je jednoduchý príklad časovača:
123 | Vedľajší časovač_Priklad ()Časovač MsgBoxKoniec pod |
Syntax časovača
V editore VBA je syntax pre funkciu Timer.
1 | Časovač |
Funkcia Timer neobsahuje žiadne argumenty:
Príklady funkcie časovača Excel VBA
Skúste použiť nasledujúci príklad kódu a porovnajte sek1 a sek2.
Potom môžeme ľahko poznať význam funkcie Časovač.
123456789101112131415161718192021222324252627 | Vedľajší časovač_Priklad1 ()Dim sec1 ako jedenDim sec2 ako dlhýsek1 = Časovačsek2 = GetSecondsFromMidnightMsgBox "sec1 =" & sec1 & vbCrLf & _"sec2 =" & sek2Koniec podFunkcia GetSecondsFromMidnight () ako dlháDim dt As DateDim h As IntegerDim m ako celé čísloDim s ako celé číslodt = Terazh = hodina (dt)m = minúta (dt)s = sekunda (dt)min = h * 60 + ms = min * 60 + sGetSecondsFromMidnight = sKoncová funkcia |
Pomocou funkcie Timer môžeme zmerať, ako dlho by trvalo spustenie časti kódu VBA.
1234567891011121314151617 | Vedľajší časovač_Priklad2 ()Dim startSec ako jedenDim endSec ako jedenDim i As LongstartSec = Časovač„Začiatok testu kódu VBAPre i = 1 až 500 000DoEventsĎalej i„Koniec kódu VBA na testovanieendSec = ČasovačMsgBox „Trvalo“ & CStr (endSec - startSec) & „s“.Koniec pod |