Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Codes pour Access

Base de données

Administrateur

Table

Requête

Formulaire

Dates & Heures

º Age d'une personnes
º Ajouter jours ouvrés
º Calcul du jour de Pâques

Convertir secondes en heures
º Date aléatoire
º Jour férié
º Jour ouvré
º Nom d'un mois
º Nombre jours ouvrés

Nombre

Math

Fichier

Commandes externes

Automation

Equivalence

Tuto Access 2007

Base de données

Lettre d'information

Dates & Heures - Convertir secondes en heures

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