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 LongIf 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 IfSortie:
Exit Function
Erreur:
Resume SortieEnd Function
Cette fonction retournera le nombre d'heures correspondant au nombre de seconde de l'argument "aSeconde".
Auteur : Jessy SEMPERE