Conversion octet => ko, mo, go ...

Commenter

Contenu du snippet

Code très simple à priori mais comme je l'ai utilisé dans plusieurs de mes programme, simplement en recopiant la fonction, j'ai pensé qu'il pouvait servir à quelqu'un...

Source / Exemple : 


Public Function ConvertOctets(Prm_L_Num As Long) As String
    
    On Error GoTo ConvertOctets_Err

    Dim L_Size As Long
    
    L_Size = Prm_L_Num ' Mise en cache
    
    If (L_Size / 1024 > 1) Then
        L_Size = L_Size / 1024
        If (L_Size / 1024 > 1) Then
            L_Size = L_Size / 1024
            If (L_Size / 1024 > 1) Then
                L_Size = L_Size / 1024
                If (L_Size / 1024 > 1) Then
                    L_Size = L_Size / 1024
                Else
                    ConvertOctets = CStr(L_Size) & " Go"
                End If
            Else
                ConvertOctets = CStr(L_Size) & " Mo"
            End If
        Else
            ConvertOctets = CStr(L_Size) & " Ko"
        End If
    Else
        ConvertOctets = CStr(L_Size) & " Oct"
    End If

    Exit Function
    
ConvertOctets_Err:
    
    Call MsgBox("Erreur n° : " & Err.Number & vbCrLf & "Description : " & Err.Description, vbOkOnly + VbExclamation, App.Title)
    
End Function

Conclusion :


Appel de la fonction : S_Buffer = ConvertOctets(5000)

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_processus)