Sommario
Descrizione del timer
Restituisce un valore Single che rappresenta il numero di secondi trascorsi dalla mezzanotte.
Semplici esempi di timer
Ecco un semplice esempio di timer:
123 | Sub Timer_Esempio()Timer MsgBoxFine sottotitolo |
Sintassi del timer
Nell'editor VBA, la sintassi per la funzione Timer.
1 | Timer |
La funzione Timer non contiene argomenti:
Esempi di funzione timer VBA di Excel
Utilizzando il seguente esempio di codice, prova a confrontare sec1 e sec2.
Quindi, possiamo facilmente conoscere il significato della funzione Timer.
123456789101112131415161718192021222324252627 | Sub Timer_Esempio1()Dim sec1 come singoloDim sec2 come a lungosec1 = Timersec2 = GetSecondsFromMidnightMsgBox "sec1 = " & sec1 & vbCrLf & _"sec2 = " & sec2Fine sottotitoloFunzione GetSecondsFromMidnight() As LongDim dt come dataDim h come interoDim m As IntegerDim s As Integerdt = Adessoh = ora (dt)m = Minuto(dt)s = Secondo(dt)minuti = h * 60 + msecondi = minuti * 60 + sGetSecondsFromMidnight = secondiFine funzione |
Usando la funzione Timer, possiamo misurare quanto tempo ci vorrebbe per eseguire una sezione del codice VBA.
1234567891011121314151617 | Sub Timer_Esempio2()Dim startSec As SingleDim endSec As SingleDim I As LongstartSec = Timer'Inizio del codice VBA da testarePer i = 1 a 500000FaiEventiAvanti io'Fine del codice VBA da testareendSec = TimerMsgBox "Ci sono voluti " & CStr(endSec - startSec) & "s."Fine sottotitolo |