Conversion des secondes en format hh/mm/ss

Soyez le premier à donner votre avis sur cette source.

Vue 3 434 fois - Téléchargée 353 fois

Description

Le code source d'un des exercices d'un concours de programmation. Tout est dans le titre.

Conclusion :


Rien à ajouter de plus !

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

Messages postés
36
Date d'inscription
samedi 29 mars 2003
Statut
Membre
Dernière intervention
29 décembre 2010

Hello!...

Ton code est pas mal mais il n'était pas compatible avec ce que je voulais faire alors je l'ai un peut modifié...

Private Function SToHMS(ByVal Seconds As Long) As String
If Seconds < 60 Then
SToHMS = "00:00:" & Format(Seconds, "0#")
Exit Function
End If

Var1 = Int(Seconds / 60)
Var2 = Seconds - (Var1 * 60)

If Var1 >= 60 Then
Var3 = Int(Var1 / 60)
Var4 = Var1 - (Var3 * 60)
SToHMS = Format(Var3, "0#") & ":" & Format(Var4, "0#") & ":" & Format(Var2, "0#")
Else
SToHMS = "00" & ":" & Format(Var1, "0#") & ":" & Format(Var2, "0#")
End If
End Function

Ton code renvoyais 0:1:30 quand on convertis 90, maintenan il renvoye 00:01:30

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.