Turinys
Laikmačio aprašymas
Grąžina vieną reikšmę, nurodančią, kiek sekundžių praėjo nuo vidurnakčio.
Paprasti laikmačio pavyzdžiai
Čia yra paprastas laikmačio pavyzdys:
123 | Papildomas laikmatis_pavyzdys ()„MsgBox“ laikmatisPabaiga Sub |
Laikmačio sintaksė
VBA redaktoriuje funkcijos „Laikmatis“ sintaksė.
1 | Laikmatis |
Funkcijoje „Laikmatis“ nėra jokių argumentų:
„Excel VBA“ laikmačio funkcijos pavyzdžiai
Naudodami šį kodo pavyzdį, pabandykite palyginti sec1 ir sec2.
Tada mes galime lengvai sužinoti laikmačio funkcijos reikšmę.
123456789101112131415161718192021222324252627 | Antrasis laikmatis_pavyzdys1 ()Dim sec1 As SingleDim sek2 As Longsec1 = Laikmatissec2 = GetSecondsFromMidnightMsgBox "sec1 =" & sec1 & vbCrLf & _"sek2 =" ir sekPabaiga SubFunkcija GetSecondsFromMidnight () kaip ilgaiDim dt As DateDim h As IntegerDim m As IntegerDim s kaip sveikasis skaičiusdt = Dabarh = valanda (dt)m = minutė (dt)s = antras (dt)min = h * 60 + msek = min * 60 + sGetSecondsFromMidnight = sekPabaigos funkcija |
Naudodami laikmačio funkciją galime išmatuoti, kiek laiko užtruks VBA kodo sekcijos vykdymas.
1234567891011121314151617 | Antrasis laikmatis_pavyzdys2 ()Dim startSec As SingleDim endSec As SingleTamsiai ilgasstartSec = Laikmatis„VBA kodo pradžia, kurią reikia išbandytiJei i = nuo 1 iki 500 000„DoEvents“Kitas I.„VBA kodo pabaiga, kurią reikia išbandytiendSec = Laikmatis„MsgBox“ „Reikėjo“ & CStr (endSec - startSec) & „s“.Pabaiga Sub |