Convertir un nombre de secondes en heures

Cette fonction permet de convertir un nombre de secondes en heures.

L'argument "aSeconde" correspond au nombre de secondes à convertir en heures.

Function ConvertSecondeHeure(aSeconde)

On Error GoTo Erreur
Dim lngHeure As Long
Dim lngMinute As Long
Dim lngSeconde As Long

If IsNumeric(aSeconde) Then
    lngHeure = Int(aSeconde / 3600)
    lngMinute = Int((aSeconde - (lngHeure * 3600)) / 60)
    lngSeconde = Int(aSeconde - (lngHeure * 3600) - (lngMinute * 60))
     ConvertSecondeHeure = Format(lngHeure, "00") & ":" & _
        Format(lngMinute, "00") & ":" & Format(lngSeconde, "00")
Else
    ConvertSecondeHeure = Null
End If

Sortie:
Exit Function
Erreur:
Resume Sortie

End Function

Cette fonction retournera le nombre d'heures correspondant au nombre de seconde de l'argument "aSeconde".

Auteur : Jessy SEMPERE