Conversion des secondes en format hh/mm/ss

0/5 (1 avis)

Vue 3 557 fois - Téléchargée 372 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
YannGotti
Messages postés
36
Date d'inscription
samedi 29 mars 2003
Statut
Membre
Dernière intervention
29 décembre 2010
1
12 avril 2004 à 12:03
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.