Conversion de seconde au format hh:mm:ss

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 351 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

Messages postés
332
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
10 avril 2020
1
Magique, sa marche toujours !
J'en avais besoin, je l'ai trouvé !!!
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.
Messages postés
6
Date d'inscription
dimanche 27 juillet 2003
Statut
Membre
Dernière intervention
26 janvier 2006

Très pratique ! Merci.
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
Messages postés
5
Date d'inscription
dimanche 3 novembre 2002
Statut
Membre
Dernière intervention
4 mars 2007

ça marche tout seul .......

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.