Table des matières
Minuterie Description
Renvoie une valeur Single représentant le nombre de secondes écoulées depuis minuit.
Exemples de minuterie simples
Voici un exemple simple de minuterie :
| 123 | Sous Timer_Example()Minuteur MsgBoxFin du sous-marin |
Syntaxe du temporisateur
Dans l'éditeur VBA, la syntaxe de la fonction Timer.
| 1 | Minuteur |
La fonction Timer ne contient aucun argument :
Exemples de fonction de minuterie Excel VBA
En utilisant l'exemple de code suivant, essayez de comparer sec1 et sec2.
Ensuite, nous pouvons facilement connaître la signification de la fonction Timer.
| 123456789101112131415161718192021222324252627 | Sous Timer_Example1()Dim sec1 comme uniqueDim sec2 aussi longtempssec1 = Minuteursec2 = GetSecondsFromMidnightMsgBox "sec1 = " & sec1 & vbCrLf & _"sec2 = " & sec2Fin du sous-marinFonction GetSecondsFromMidnight() As LongDim dt comme dateDim h en tant qu'entierDim m en tant qu'entierDim s en tant qu'entierdt = maintenanth = Heure(dt)m = Minute(dt)s = Seconde(dt)min = h * 60 + ms = min * 60 + sGetSecondsFromMidnight = secondesFonction de fin |
En utilisant la fonction Timer, nous pouvons mesurer combien de temps il faudrait pour exécuter une section de code VBA.
| 1234567891011121314151617 | Sous Timer_Example2()Dim startSec As SingleDim endSec comme uniqueDim j'aussi longtempsstartSec = Minuteur' Début du code VBA à testerPour i = 1 à 500000FaireEvénementsEnsuite je' Fin du code VBA à testerendSec = MinuteurMsgBox "Il a fallu " & CStr(endSec - startSec) & "s."Fin du sous-marin |
