Bonjour à tous...
Grâce à ce code dans la FAQ ICI, je voulais obtenir le temps d'exécution de mon code en HH:MM:SS, et non pas en millisecondes.
Avec l'aide de DEMCO, voici le code légèrement modifié à mettre :
Si ça peut vous aider tant mieux ;-)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Private Declare Function GetTickCount Lib "kernel32" () As Long Dim Debut As Long, Fin As Long 'Lancement du chrono Debut = GetTickCount() 'Code à placer ici 'Fin du chrono Fin = GetTickCount() MsgBox "Temps Total d'exécution en HH:MM:SS -> " & TimeSerial(0, 0, (((Fin - Debut) / 1000)))
@+
Partager