Sisällysluettelo
Ajastimen kuvaus
Palauttaa yhden arvon, joka edustaa keskiyöstä kuluneiden sekuntien määrää.
Esimerkkejä yksinkertaisista ajastimista
Tässä on yksinkertainen esimerkki ajastimesta:
123 | Ajastin_esimerkki ()MsgBox -ajastinEnd Sub |
Ajastimen syntaksi
VBA -editorissa ajastintoiminnon syntaksi.
1 | Ajastin |
Ajastintoiminto ei sisällä argumentteja:
Esimerkkejä Excel VBA -ajastintoiminnosta
Yritä vertailla seuraavaa koodiesimerkkiä sekunteja 1 ja sek2.
Sitten voimme helposti tietää ajastintoiminnon merkityksen.
123456789101112131415161718192021222324252627 | Ajastin_esimerkki1 ()Dim sec1 SingleHimmennys2 niin kauansec1 = Ajastinsec2 = GetSecondsFromMidnightMsgBox "sec1 =" & sec1 & vbCrLf & _"sek2 =" & sek2End SubToiminto GetSecondsFromMidnight () niin kauanDim dt päivämääränäDim h Kuten kokonaislukuDim m kokonaislukunaDim s kokonaislukunadt = Nyth = Tunti (dt)m = minuutti (dt)s = toinen (dt)min = h * 60 + msek = min * 60 + sGetSecondsFromMidnight = sekuntiaLopeta toiminto |
Ajastintoiminnon avulla voimme mitata, kuinka kauan VBA -koodin osan suorittaminen kestää.
1234567891011121314151617 | Ajastin_esimerkki2 ()Dim startSec SingleDim endSec SingleDim niin kauanstartSec = Ajastin'VBA -koodin alku testattavaksiI = 1 - 500000DoEventsSeuraavaksi minä'VBA -koodin loppu testattavaksiendSec = AjastinMsgBox "Se kesti" & CStr (endSec - startSec) & "s."End Sub |