Creer son logiciel - Convertir des secondes en jours mois heures secondes
Bonjour,
Aujourd'hui nous allons voir une petite routine pour convertir des secondes en jour, heure minutes et secondes au format :
1j50h30m20s.
Il suffit d'utiliser l'instruction WHILE WEND.
Voici le code :
Private Sub cvjhms(mysecond As Integer) As String ' conversion en jour heure mlinute secondes des secondes
Dim myresult As String
Dim myday As Integer
Dim myhour As Integer
Dim myminutes As Integer
While mysecond >= 86400
Inc myday
mysecond = mysecond - 86400
Wend
While mysecond >= 3600
Inc myhour
mysecond = mysecond - 3600
Wend
While mysecond >= 60
Inc myminutes
mysecond = mysecond - 60
Wend
myresult = Str(myday) & "j" & Str(myhour) & "h" & Str(myminutes) & "m" & Str(mysecond) & "s"
Return myresult
End
Appelez simplement cette méthode comme ceci :
dim monresultat as string
monresultat = cvjhms(456789)
merci pour votre attention.
Date de création : 18/07/2021 @ 02:13
Dernière modification : 18/07/2021 @ 02:13
Catégorie : Creer son logiciel Page lue 1976 fois