Conversion de seconde au format hh:mm:ss

Commenter

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

S'inscrire maintenant

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.

Du même auteur (CodeCodeCodac)