Convertir un nombre en taille (Ko,Mo,Go)
Contenu du snippet
Public Function GetSizeName(ByVal lValue As Long) As String
If (lValue = 0) Or (lValue = 1) Then
Return lValue.ToString & " octet"
ElseIf lValue < 0 Then
Return String.Empty
End If
Dim asLibs() As String = {"octets", "Ko", "Mo", "Go", "To"}
Dim r As Double = Convert.ToDouble(lValue)
Dim d As Integer = asLibs.GetLowerBound(0)
Dim s As Boolean
Do While r > 1024
s = Not ((Convert.ToInt64(r) And 1023) = 0)
r = r / 1024
d += 1
Loop
Dim sRet As String = String.Format("{0} {1}", Math.Round(r, 3), asLibs(d))
asLibs = Nothing
Return sRet
End Function
Compatibilité : VB 2005, VB 2008, VB.NET 1.x
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.