Tartalomjegyzék
Időzítő leírása
Egyetlen értéket ad vissza, amely az éjfél óta eltelt másodpercek számát jelzi.
Példák egyszerű időzítésre
Íme egy egyszerű időzítő példa:
123 | Alidőzítő_Példa ()MsgBox időzítőEnd Sub |
Időzítő szintaxisa
A VBA szerkesztőben az időzítő funkció szintaxisa.
1 | Időzítő |
Az Időzítő funkció nem tartalmaz érveket:
Példák az Excel VBA időzítő funkciójára
Az alábbi kódpéldával próbálja összehasonlítani a sec1 és sec2 értékeket.
Ezután könnyen megtudhatjuk az időzítő funkció jelentését.
123456789101112131415161718192021222324252627 | Alidőzítő_Példa1 ()Dim sec1 EgyetlenkéntDim sec2 As Longsec1 = Időzítősec2 = GetSecondsFromMidnightMsgBox "sec1 =" & sec1 & vbCrLf & _"sec2 =" & sec2End SubFunkció GetSecondsFromMidnight () mint hosszúDim dt dátumkéntDim h Mint egészDim m Mint egészDim s mint egészdt = Mosth = óra (dt)m = perc (dt)s = Második (dt)perc = h * 60 + mmásodperc = perc * 60 + sGetSecondsFromMidnight = másodpercVége funkció |
Az Időzítő funkció segítségével meg tudjuk mérni, mennyi ideig tart egy VBA kód egy szakaszának futtatása.
1234567891011121314151617 | Alidőzítő_Példa2 ()Dim startSec As SingleDim endSec As SingleDim i As LongstartSec = Időzítő'A tesztelni kívánt VBA kód kezdeteI = 1 és 500000 közöttDoEventsKövetkező i'VBA kód teszt végeendSec = IdőzítőMsgBox "Kellett" & CStr (endSec - startSec) & "s."End Sub |