Lang L: none (table-of-contents)
Taimer Kirjeldus
Tagastab üksiku väärtuse, mis tähistab keskööst möödunud sekundite arvu.
Lihtsad taimerinäited
Siin on lihtne taimeri näide:
| 123 | Alamtaimer_näide ()MsgBoxi taimerEnd Sub |
Taimeri süntaks
VBA redaktoris funktsiooni Taimer süntaks.
| 1 | Taimer |
Funktsioon Taimer ei sisalda argumente:
Excel VBA taimerifunktsiooni näited
Järgmise koodinäite abil proovige võrrelda sec1 ja sec2.
Siis saame hõlpsalt teada taimeri funktsiooni tähenduse.
| 123456789101112131415161718192021222324252627 | Alamtaimer_näide1 ()Dim sec1 As SingleDim sec2 As Longsec1 = Taimersec2 = GetSecondsFromMidnightMsgBox "sec1 =" & sec1 & vbCrLf & _"sec2 =" & sec2End SubFunktsioon GetSecondsFromMidnight () nii kauaDim dt kui kuupäevDim h Nagu täisarvDim m As täisarvDim s täisarvunadt = koheh = tund (dt)m = minut (dt)s = teine (dt)min = h * 60 + msekundit = min * 60 + sGetSecondsFromMidnight = sekunditLõppfunktsioon |
Funktsiooni Taimer abil saame mõõta, kui kaua kulub VBA koodi osa käivitamiseks.
| 1234567891011121314151617 | Alamtaimer_näide2 ()Dim startSec As SingleDim endSec As SingleDim i As LongstartSec = Taimer'Testitava VBA koodi algusI = 1 kuni 500000DoEventsEdasi i'Testida VBA koodi lõppendSec = TaimerMsgBox "Kulus" & CStr (endSec - startSec) & "s."End Sub |
