Les Snippets

Nouveaux snippets
Snippets les plus consultés
Proposer un snippet

 Abonnez vous à ce fil d'information Les rss

Rechercher :

Par langages :

Par Catégorie

Compteurs


Nombre de sujets : 508
Nombre de snippets : 1569
Connexion

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

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 25/03/2006 23:35:22 et initié par EBArtSoft [Liste]
Date de mise à jour : 05/08/2006 14:25:59
Vue : 14416
Catégorie(s) : Fichier / Disque, Trucs & Astuces, Chaîne de caractères
Langages dispo pour ce code :
- VB6, VBA
- Delphi 5
- PHP 3, PHP 4, PHP 5
- PHP 3, PHP 4, PHP 5
- Perl
- Voir tous les langages pour ce code snippet
Proposer ce code dans un autre langage



Langage : VB6 , VBA
Date ajout : 25/03/2006
Posté par EBArtSoft [Liste]
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