Compléments pour Microsoft Access

Description

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

Synthaxe

Expression_Numérique = ConvertSecondeHeure (aSeconde)

La synthaxe de la fonction ConvertSecondeHeure comprend l'élément suivant :

Eléments	Description
aSeconde	Expression numérique correspondant au nombre de seconde que l'on souhaite convertir.

Exemple

		Aucun exemple disponible pour le moment.

Code de la fonction

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

Convertir secondes en heures (Dates & Heures)