Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function StrFromTimeInterval Lib "shlwapi" Alias "StrFromTimeIntervalA" (ByVal pszOut As String, ByVal cchMax As Long, ByVal dwTimeMS As Long, ByVal dwDigits As Long) As Long
' Fonction pour transformer un nombre en Heures, Minutes, Secondes
' lTime est en milliseconds
' lDigits est optionnel
' 3 -> heures
' 5 -> heures & minutes
' 7 -> heures & minutes & secondes
Private Function GetFormattedTime(ByVal lTime As Long, Optional lDigits As Long = 7) As String
Dim StrOut As String
StrOut = Space(64)
Call StrFromTimeInterval(StrOut, Len(StrOut) - 1, lTime, lDigits)
GetFormattedTime = Trim(StrOut)
End Function
' exemple d'utilisation:
MsgBox "Your computer works: " & GetFormattedTime(GetTickCount)