Chronomètre et chronométrage

Présentation
Utilisation de la fonction API GetTickCount
En tête d'un module standard, déclarer la fonction
vb
Public Declare Function GetTickCount& Lib "kernel32" ()

puis pour l'utiliser :
vb
Sub MesureDuTempsQuiPasse()
Dim Départ As Double, arrivée As Double, Durée As Double,i As Long
Dim mn As Integer, ms As Integer, sd As Integer, tps As String
Départ = GetTickCount&
'************* ton code ********************
For i = 1 To 100000 'remplace le déroulement du code
DoEvents
Next
'*****************************************
arrivée = GetTickCount&
Durée = arrivée - Départ
mn = Int(Durée / 1000 / 60)
sd = Int((Durée / 1000) - (mn * 60))
ms = Durée - (sd * 1000) - (mn * 1000 * 60)
'Formatage #:##:###
tps = mn & ":" & right("00" & sd, 2) & ":" & Right("000" & ms, 3)
MsgBox tps
End Sub
Téléchargement
1  0 
Téléchargé 30 fois Voir le commentaire
Détails
Catégories : Sources VBA
Voir tous les téléchargements de l'auteur
Licence : Non renseignée
Date de mise en ligne : 13 janvier 2012




Avatar de skk201 skk201 - Nouveau membre du Club https://www.developpez.com
le 28/02/2014 à 16:42
J'ai de la peine à voir en quoi ça peut être utile. Est-ce que tu as des exemples ?

 
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.