Convertir un nombre en taille (Ko,Mo,Go)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 42 693 fois - Téléchargée 9 fois

Contenu du snippet

Public Function GetSizeName(ByVal vValue As Long) As String
    Dim Desc As Variant
    Dim s    As Boolean
    Dim d    As Integer
    Dim r    As Double
    r = vValue
    Desc = Array("octets", "Ko", "Mo", "Go", "To")
    Do While r > 1024
        s = (r And 1023) <> 0
        r = r / 1024
        d = d + 1
    Loop
    If s Then
        If r > 100 Then
            GetSizeName = Format(r, "0") & " " & Desc(d)
        ElseIf r > 10 Then
            GetSizeName = Format(r, "0.0") & " " & Desc(d)
        Else
            GetSizeName = Format(r, "0.00") & " " & Desc(d)
        End If
    Else
        GetSizeName = r & " " & Desc(d)
    End If
End Function


Compatibilité : VB6, VBA

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.