Índice
Descrição do cronômetro
Retorna um único valor que representa o número de segundos decorridos desde a meia-noite.
Exemplos simples de temporizador
Aqui está um exemplo simples de cronômetro:
| 123 | Sub Timer_Exemplo ()MsgBox TimerEnd Sub |
Sintaxe do cronômetro
No Editor VBA, a sintaxe da função Timer.
| 1 | Cronômetro |
A função Timer não contém argumentos:
Exemplos de função de temporizador do Excel VBA
Usando o seguinte exemplo de código, tente comparar sec1 e sec2.
Então, podemos facilmente saber o significado da função Timer.
| 123456789101112131415161718192021222324252627 | Sub Timer_Example1 ()Dim sec1 como únicoDim sec2 enquanto longosec1 = temporizadorsec2 = GetSecondsFromMidnightMsgBox "sec1 =" & sec1 & vbCrLf & _"sec2 =" & sec2End SubFunção GetSecondsFromMidnight () As LongDim dt As DateDim h As IntegerDim m As IntegerDim s As Integerdt = agorah = hora (dt)m = Minuto (dt)s = segundo (dt)min = h * 60 + ms = min * 60 + sGetSecondsFromMidnight = secsFunção Final |
Usando a função Timer, podemos medir quanto tempo levaria para executar uma seção do código VBA.
| 1234567891011121314151617 | Sub Timer_Example2 ()Dim startSec As SingleDim endSec As SingleDim i enquantostartSec = Timer'Início do código VBA para testarPara i = 1 a 500.000DoEventsProximo eu'Fim do código VBA para testarendSec = TimerMsgBox "Demorou" & CStr (endSec - startSec) & "s."End Sub |
