Kazalo
Opis časovnika
Vrne enotno vrednost, ki predstavlja število sekund, ki so pretekle od polnoči.
Primeri preprostih merilnikov časa
Tu je preprost primer časovnika:
| 123 | Podčasovnik_primer ()MsgBox TimerEnd Sub |
Sintaksa časovnika
V urejevalniku VBA je sintaksa funkcije Timer.
| 1 | Časovnik |
Funkcija Timer ne vsebuje argumentov:
Primeri funkcije časomera Excel VBA
Z naslednjim primerom kode poskusite primerjati sec1 in sec2.
Potem lahko preprosto ugotovimo pomen funkcije Timer.
| 123456789101112131415161718192021222324252627 | Pod timer_Primer1 ()Dim sec1 As SingleDim sec2 As Longsec1 = Časovniksec2 = GetSecondsFromMidnightMsgBox "sec1 =" & sec1 & vbCrLf & _"sec2 =" & sec2End SubFunkcija GetSecondsFromMidnight () As LongZatemni dt kot datumDim h kot celo številoDim m kot celo številoDim s kot celo številodt = Zdajh = Ura (dt)m = minuta (dt)s = sekunda (dt)min = h * 60 + msekunde = min * 60 + sGetSecondsFromMidnight = sekKončana funkcija |
S funkcijo Timer lahko izmerimo, kako dolgo traja zagon odseka kode VBA.
| 1234567891011121314151617 | Podčasovnik_primer2 ()Zatemni startSec kot samskiZatemni endSec kot samskiDim i As LongstartSec = Časovnik„Začetek preskusa kode VBAZa i = 1 do 500000DoEventsNaprej i„Koda VBA za testiranjeendSec = ČasovnikMsgBox "To je trajalo" & CStr (endSec - startSec) & "s."End Sub |
