1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
|
Option Compare Database
Option Explicit
'Private Declare Function GetTickCount Lib "kernel32" () As LongGetTickCount
'Auteur: Romain Puyfoulhoux
'Renvoie le nombre de millisecondes qui s'est écoulé depuis le démarrage du système.
Private Sub bt_deb_Click()
gDeb = 0
MsgBox "gdeb: " & gDeb
gDeb = GetTickCount() 'ici le code à chronométrer
End Sub
Private Sub bt_fin_Click()
Dim lHrs As Long, lMin As Long, lSec As Long, lCent As Long
Dim lReste As Long
gFin = GetTickCount() 'ici le code à chronométrer
MsgBox "Temps mis en millisecondes : " & gFin - gDeb
'Affichage formaté
'*******************
lHrs = Int((gFin - gDeb) / 3600000)
lReste = (gFin - gDeb) - (lHrs * 3600000)
lMin = Int(lReste / 60000)
lReste = lReste - (lMin * 60000)
lSec = Int(lReste / 1000)
lReste = lReste - (lSec * 1000)
lCent = Int(lReste / 10)
Me.chp1 = CStr(lHrs) & "H " & Format(CStr(lMin), "00") & "mn" _
& Format(CStr(lSec), "00") & ":" & Format(CStr(lCent), "00")
End Sub |
Partager