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