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)

function TickToLisibleTime(const Tick : cardinal) : string;
var H,N,S,Z : word;
begin
  Z := Tick mod 1000;
  S := (Tick div 1000) mod 60;
  N := (Tick div 60000) mod 60;
  H := (Tick div 3600000);
  result := format('%.2d:%.2d:%.2d.%.3d',[H,N,S,Z]);
end;

Function HMS(ByVal s As Long) As String
 'avec -1 < s < 360000
 Dim j As Long, h As Long, m As Long
 Dim osB(1 To 8) As Byte
         osB(3) = 58 ' ":"
         osB(6) = 58
     
         m = s \ 60
         s = s - m * 60
         h = m \ 60
         m = m - h * 60
         
         j = s \ 10
         osB(8) = 48 + (s - j * 10)
         osB(7) = 48 + j
         
         j = m \ 10
         osB(5) = 48 + (m - j * 10)
         osB(4) = 48 + j
         
         j = h \ 10
         osB(2) = 48 + (h - j * 10)
         osB(1) = 48 + j
         
         HMS = StrConv(osB(), vbUnicode)
   End Function

''' <summary>

''' Convertit un temps en milliseconde en une chaine formatt HH:MM:SS

''' </summary>

''' <param name="TempsEnMilliSeconde">Nombre de milli-secondes</param>

''' <auteur>LEVEUGLE Damien [Elguevel]</auteur>

''' <returns></returns>

''' <remarks></remarks>

Public Function ConvertMilliSecondeToString(ByVal TempsEnMilliSeconde As Double) As String

Try
Dim tsTemps As New TimeSpan

tsTemps = TimeSpan.FromMilliseconds(TempsEnMilliSeconde)


If (tsTemps.Days > 0) Then

    Return String.Format("{0}j {1}h {2}min {3}s {4}ms",tsTemps.Days,tsTemps.Hours, tsTemps.Minutes, tsTemps.Seconds,tsTemps.Milliseconds) 
ElseIf (tsTemps.Hours > 0) Then
    Return String.Format("{0}h {1}min {2}s {3}ms",tsTemps.Hours,tsTemps.Minutes,tsTemps.Seconds, tsTemps.Milliseconds) 
ElseIf (tsTemps.Minutes > 0) Then
    Return String.Format("{0}min {1}s {2}ms", tsTemps.Minutes, tsTemps.Seconds,tsTemps.Milliseconds) 
ElseIf (tsTemps.Seconds > 0) Then
    Return String.Format("{0}s {1}ms", tsTemps.Seconds, tsTemps.Milliseconds)
Else
    Return String.Format("{0}ms", tsTemps.Milliseconds)
End If
Catch ex As Exception 

Throw New Exception("Erreur la conversion jj:hh:mm:ss", ex)
End Try


End Function