Il me semble que non, mais de toute façon, la fonction est assez triviale.
De tête je t'en fais une ici :

Function GetTime(ByVal intSeconds As Integer) As String
   Dim strTime As String 
   Dim intH As Integer
   Dim intM As Integer
   Dim intS As Integer
   Dim intReste As Integer    

    'Obtenir les heures
    intH =  intSeconds \ 3600
    intReste = intSeconds Mod 3600

    'Obtenir les minutes
    intM = intReste \ 60
    intReste = intReste Mod 60

   'Obtenir les secondes
    intS = intReste

   'Construire la chaîne d'affichage
    strTime = intH & "h" & intM & "m" & intS & "s"

   GetTime = strTime
End Function

Salut !

Moi aussi j'ai eu besoin d'une fonction pour transformer un nombre en temps, mais comme il n'en existe pas de toute faite, j'ai écrit une fonction moi-même. elle marche bien mais seulement si ton nombre est inférieur a 2 h soit 7200.

private sub transformer( nombre as integer) : string

dim h,m,s as integer

if nombre<60 then
chaine="0 : 0 : " & nombre
else
if nombre<3600 then
m=int(nombre/60)
s= nombre-(60*m)
chaine="0 : " & m & ":" & s
else
h=1
m=int((nombre/60)-60)
s =nombre-(60*int(nombre/60))
chaine= h & ":" & m & ":" & s
end if
end if

return (chaine)

end sub

Merci pour vos bons conseils
A+