Conversion de seconde au format hh:mm:ss

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 133 fois - Téléchargée 80 fois

Contenu du snippet

'FONCTION SecondeEnHeure
'Permet de Convertir une valeur En seconde au format HH:MM:SS
'Cette Fonction renvoie une valeur de type STRING correspondant
'a l'heure

Source / Exemple :


Public Function SecondeEnHeure(ByVal Seconde As Long) As String
  Dim HH, MM, MMsec, SS As Long
  Dim HHstr, MMstr, SSstr As String
  
  HH = Int(Seconde / 3600)
  MMsec = Seconde - (HH * 3600)
  MM = Int(MMsec / 60)
  SS = MMsec - (MM * 60)
  If SS < 10 Then
    SSstr = "0" + Trim(Str(SS))
  Else
    SSstr = Trim(Str(SS))
  End If
  If MM < 10 Then
    MMstr = "0" + Trim(Str(MM))
  Else
    MMstr = Trim(Str(MM))
  End If
  If HH < 10 Then
    HHstr = "0" + Trim(Str(HH))
  Else
    HHstr = Trim(Str(HH))
  End If
  SecondeEnHeure = HHstr & ":" & MMstr & ":" & SSstr
End Function

Conclusion :


Voir aussi la conversion d'heure en seconde

A voir également

Ajouter un commentaire

Commentaires

RemyFR
Messages postés
5
Date d'inscription
dimanche 3 novembre 2002
Statut
Membre
Dernière intervention
4 mars 2007
-
ça marche tout seul .......
fangs
Messages postés
2
Date d'inscription
samedi 7 décembre 2002
Statut
Membre
Dernière intervention
12 décembre 2003
-
magnifique !! bon boulot et ça va me simplifier la vie.
Merci encore man
cs_gedy
Messages postés
6
Date d'inscription
dimanche 27 juillet 2003
Statut
Membre
Dernière intervention
26 janvier 2006
-
Très pratique ! Merci.
MichelD62
Messages postés
6
Date d'inscription
vendredi 8 septembre 2006
Statut
Membre
Dernière intervention
16 août 2007
-
C'est exactement ce genre d'exemple qui m'intéresse; Merci.
Galactus13
Messages postés
324
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
25 mai 2019
1 -
Magique, sa marche toujours !
J'en avais besoin, je l'ai trouvé !!!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.