Convertir un nombre en taille (Ko,Mo,Go)
Contenu du snippet
''' <summary>
''' Converti une taille exprimée en octet en une chaine formattée
''' </summary>
''' <param name="Entier">Taille en octet</param>
''' <returns>Chaine formattée avec l'unité</returns>
Public Function ConvertSizeFile(ByVal Entier As Long) As String
If (Entier >= &H10000000000) Then
Return String.Format("{0:N2} To", Entier / &H10000000000)
ElseIf (Entier >= &H40000000) Then
Return String.Format("{0:N2} Go", Entier / &H40000000)
ElseIf (Entier >= &H100000) Then
Return String.Format("{0:N2} Mo", Entier / &H100000)
ElseIf (Entier >= &H400) Then
Return String.Format("{0:N2} Ko", Entier / &H400)
Else
Return String.Format("{0} oc", Entier)
End If
End Function
Compatibilité : VB 2008
Disponible dans d'autres langages :
A voir également
- Convertir un nombre en taille (Ko,Mo,Go)
- $Mo - Forum PHP
- Vba convertir nombre en texte - Forum Visual Basic
- Sql convertir texte en nombre ✓ - Forum SQL
- Convertir un integer en string - Forum Visual Basic
- Conversion nombre en texte ✓ - Forum VBA Office (Excel, Word ...)
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.