Convertir un nombre de millisecondes en Heures, Minutes, Secondes par API

Soyez le premier à donner votre avis sur cette source.

Snippet vu 35 565 fois - Téléchargée 7 fois

Contenu du snippet

''' <summary>

''' Convertit un temps en milliseconde en une chaine formatt HH:MM:SS

''' </summary>

''' <param name="TempsEnMilliSeconde">Nombre de milli-secondes</param>

''' <auteur>LEVEUGLE Damien [Elguevel]</auteur>

''' <returns></returns>

''' <remarks></remarks>

Public Function ConvertMilliSecondeToString(ByVal TempsEnMilliSeconde As Double) As String

Try
Dim tsTemps As New TimeSpan

tsTemps = TimeSpan.FromMilliseconds(TempsEnMilliSeconde)


If (tsTemps.Days > 0) Then

    Return String.Format("{0}j {1}h {2}min {3}s {4}ms",tsTemps.Days,tsTemps.Hours, tsTemps.Minutes, tsTemps.Seconds,tsTemps.Milliseconds) 
ElseIf (tsTemps.Hours > 0) Then
    Return String.Format("{0}h {1}min {2}s {3}ms",tsTemps.Hours,tsTemps.Minutes,tsTemps.Seconds, tsTemps.Milliseconds) 
ElseIf (tsTemps.Minutes > 0) Then
    Return String.Format("{0}min {1}s {2}ms", tsTemps.Minutes, tsTemps.Seconds,tsTemps.Milliseconds) 
ElseIf (tsTemps.Seconds > 0) Then
    Return String.Format("{0}s {1}ms", tsTemps.Seconds, tsTemps.Milliseconds)
Else
    Return String.Format("{0}ms", tsTemps.Milliseconds)
End If
Catch ex As Exception 
Throw New Exception("Erreur la conversion jj:hh:mm:ss", ex)
End Try


End Function


Compatibilité : VB 2005, VB 2008

Disponible dans d'autres langages :

A voir également

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.