Convertir un nombre de millisecondes en Heures, Minutes, Secondes par API
Soyez le premier à donner votre avis sur cette source.
Snippet vu 34 362 fois - Téléchargée 8 fois
Contenu du snippet
Function HMS(ByVal s As Long) As String 'avec -1 < s < 360000 Dim j As Long, h As Long, m As Long Dim osB(1 To 8) As Byte osB(3) = 58 ' ":" osB(6) = 58 m = s \ 60 s = s - m * 60 h = m \ 60 m = m - h * 60 j = s \ 10 osB(8) = 48 + (s - j * 10) osB(7) = 48 + j j = m \ 10 osB(5) = 48 + (m - j * 10) osB(4) = 48 + j j = h \ 10 osB(2) = 48 + (h - j * 10) osB(1) = 48 + j HMS = StrConv(osB(), vbUnicode) End Function
Compatibilité : VB6
Disponible dans d'autres langages :
A voir également
- 1 seconde en milliseconde
- 1 minute en milliseconde - Meilleures réponses
- Seconde en milliseconde - Meilleures réponses
- Faire une pause de ** secondes ou millisecondes sans "perdre la main" - Codes sources - Delphi / Pascal (API)
- Tableau de conversion des secondes en millisecondes ✓ - Forum - Flash
- Oracle format date/heure minute seconde milliseconde - Forum - SQL
- Visual Basic / VB.NET : Attendre un certains nombre de secondes/millisecondes sans "perdre la m - Guide
- Flash : Convertir millisecondes en minutes:secondes. ( en as2 / débutant ) - CodeS SourceS - Guide
Modifié par lyli le 31/03/2015 à 18:56
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.