WIDGETS GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
VISITES

   visiteurs

   visiteurs en ligne

Où ça, qui ça?
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.
smile

Date de création : 18/07/2021 @ 02:13
Dernière modification : 18/07/2021 @ 02:13
Catégorie : Creer son logiciel
Page lue 63 fois


Imprimer l'article Imprimer l'article


react.gifRéactions à cet article

Personne n'a encore laissé de commentaire.
Soyez donc le premier !


ACCES RAPIDE
RECHERCHE




LOGICIELS GAMBAS 2
LES INSTRUCTIONS
LES COMPOSANTS
Divers

^ Haut ^