Mesure du temps d'exécution d'un code
Contenu du snippet
Function GetSecondsElapsed1() As Long
Static dOldDate As Date
Static dNewDate As Date
' sauvegarde
dOldDate = dNewDate
' maintenant
dNewDate = Now
' évite un dépassement de capacité inutile
If dOldDate = 0 Then dOldDate = dNewDate
' retour
GetSecondsElapsed1 = DateDiff("s", dOldDate, dNewDate)
End Function
'
'
Function GetSecondsElapsed2() As Double
Static dOldTimer As Double
Static dNewTimer As Double
' sauvegarde
dOldTimer = dNewTimer
' maintenant
dNewTimer = Timer
' premier lancement
If dOldTimer = 0 Then dOldTimer = dNewTimer
' retour
GetSecondsElapsed2 = dNewTimer - dOldTimer
End Function
Compatibilité : VB6, VBA
Disponible dans d'autres langages :
A voir également
- Mesure du temps d'exécution d'un code
- Erreur d'execution 424 ✓ - Forum Visual Basic 6
- Erreur d'execution 9 ✓ - Forum VB.NET
- Créer un emploi du temps en ligne - Forum Java
- Erreur d'execution '9' ✓ - Forum Visual Basic 6
- Erreur d'exécution '9' : l'indice n'appartient pas à la sélection ✓ - Forum Visual Basic 6
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.