Cuprins
Descrierea temporizatorului
Returnează o valoare unică reprezentând numărul de secunde care au trecut de la miezul nopții.
Exemple de timer simplu
Iată un exemplu simplu de temporizator:
123 | Sub Timer_Example ()Temporizator MsgBoxSfârșitul Sub |
Sintaxa temporizatorului
În Editorul VBA, sintaxa pentru funcția Timer.
1 | Temporizator |
Funcția Timer nu conține argumente:
Exemple de funcții Excel VBA Timer
Folosind următorul exemplu de cod, vă rugăm să încercați să comparați sec1 și sec2.
Apoi, putem cunoaște cu ușurință semnificația funcției Timer.
123456789101112131415161718192021222324252627 | Sub Timer_Example1 ()Dim sec1 Ca singurDim sec2 Ca lungsec1 = Temporizatorsec2 = GetSecondsFromMidnightMsgBox "sec1 =" & sec1 & vbCrLf & _"sec2 =" & sec2Sfârșitul SubFuncția GetSecondsFromMidnight () As LongDim dt Ca datăDim h IntegerDim m Ca întregDim s As Integerdt = Acumh = Ora (dt)m = minut (dt)s = Second (dt)minute = h * 60 + msecunde = minute * 60 + sGetSecondsFromMidnight = secundeFuncția de sfârșit |
Folosind funcția Timer, putem măsura cât timp ar dura executarea unei secțiuni din codul VBA.
1234567891011121314151617 | Sub Timer_Example2 ()Dim startSec Ca singleDim endSec Ca singleDim i As LongstartSec = Timer„Începutul codului VBA de testatPentru i = 1 până la 500000DoEventsApoi eu„Sfârșitul codului VBA de testatendSec = TemporizatorMsgBox "A fost nevoie de" & CStr (endSec - startSec) & "s."Sfârșitul Sub |