Convertir un nombre de millisecondes en Heures, Minutes, Secondes par API
Contenu du snippet
Private Declare Function GetTickCount Lib "kernel32" () As Long Private Declare Function StrFromTimeInterval Lib "shlwapi" Alias "StrFromTimeIntervalA" (ByVal pszOut As String, ByVal cchMax As Long, ByVal dwTimeMS As Long, ByVal dwDigits As Long) As Long ' Fonction pour transformer un nombre en Heures, Minutes, Secondes ' lTime est en milliseconds ' lDigits est optionnel ' 3 -> heures ' 5 -> heures & minutes ' 7 -> heures & minutes & secondes Private Function GetFormattedTime(ByVal lTime As Long, Optional lDigits As Long = 7) As String Dim StrOut As String StrOut = Space(64) Call StrFromTimeInterval(StrOut, Len(StrOut) - 1, lTime, lDigits) GetFormattedTime = Trim(StrOut) End Function ' exemple d'utilisation: MsgBox "Your computer works: " & GetFormattedTime(GetTickCount)
Compatibilité : VB6
Disponible dans d'autres langages :
A voir également
- Convertir un nombre de millisecondes en Heures, Minutes, Secondes par API
- 161 minutes en heures - Forum Visual Basic
- Convertion de minute en heure:minute ? ✓ - Forum ASP / ASP3
- 1000 secondes en minutes ✓ - Forum PHP
- Secondes en minutes ✓ - Forum PHP
- Vba convertir nombre en texte - Forum Visual Basic
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.