Satura rādītājs
Taimera apraksts
Atgriež vienotu vērtību, kas atspoguļo sekunžu skaitu, kas pagājis kopš pusnakts.
Vienkārši taimera piemēri
Šeit ir vienkāršs taimera piemērs:
123 | Papildu taimeris_Piemērs ()MsgBox taimerisBeigu apakš |
Taimera sintakse
VBA redaktorā funkcijas Taimeris sintakse.
1 | Taimeris |
Funkcijā Taimeris nav argumentu:
Excel VBA taimera funkcijas piemēri
Izmantojot šo koda piemēru, lūdzu, mēģiniet salīdzināt sec1 un sec2.
Tad mēs varam viegli uzzināt taimera funkcijas nozīmi.
123456789101112131415161718192021222324252627 | Papildu taimeris_Piemērs1 ()Dim sec1 Kā SingleDim sec2 As Longsec1 = taimerissec2 = GetSecondsFromMidnightMsgBox "sec1 =" & sec1 & vbCrLf & _"sec2 =" & sec2Beigu apakšFunkcija GetSecondsFromMidnight () tik ilgiDim dt kā datumsDim h Kā vesels skaitlisDim m Kā vesels skaitlisDim s Kā vesels skaitlisdt = Tagadh = Stunda (dt)m = minūte (dt)s = otrais (dt)min = h * 60 + msek = min * 60 + sGetSecondsFromMidnight = sekundesBeigu funkcija |
Izmantojot taimera funkciju, mēs varam izmērīt, cik ilgs laiks būtu nepieciešams, lai palaistu VBA koda sadaļu.
1234567891011121314151617 | Papildu taimeris_Piemērs2 ()Dim startSec As SingleDim endSec As SingleDim un tik ilgistartSec = Taimeris'Pārbaudāmā VBA koda sākumsJa i = 1 līdz 500000DoEventsTālāk i'VBA koda beigas, lai pārbaudītuendSec = TaimerisMsgBox "Tas prasīja" & CStr (endSec - startSec) & "s".Beigu apakš |