Mesure du temps d'exécution d'un code

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 334 fois - Téléchargée 7 fois

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

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.