Convertir des octets en ko,mo, go et to

Commenter

Contenu du snippet

En fait c'est un modul de conversion trés trés pratique, de VbTom que j'ai corrigé (j'me suis aprecu apres que qq d'autre que moi l'avais fait mais bon) et ou j'ai ajouté la conversion en TeraOctect (sa sert a rien d'acord pk rien n'est actuellement aussi gros mais bon), voila @++

(
'-------------------------------------------
'vbtom
'e-mail : vbtom@free.fr
'site web : http://vbtom.phidji.com
'-------------------------------------------
)

Source / Exemple : 


Public Function OctetsToKoMoGo(DATA) As String
Dim Décimales
Décimales = 2
Debug.Print DATA
If DATA < 1024 Then ' - d'1 Ko
    OctetsToKoMoGo = DATA & " Octets"
ElseIf DATA >= 1024 And DATA < (1024 ^ 2) Then ' Entre 1 Ko et 1023Ko
    OctetsToKoMoGo = (Round((DATA / 1024), Décimales)) & " Ko"
ElseIf DATA >= (1024 ^ 2) And DATA < (1024 ^ 3) Then 'Entre 1 Mo et 1023 Mo
    OctetsToKoMoGo = (Round((DATA / (1024 ^ 2)), Décimales)) & " Mo"
ElseIf DATA >= (1024 ^ 3) And DATA < (1024 ^ 4) Then 'Entre 1 Go et 1023 Go')
    OctetsToKoMoGo = (Round((DATA / (1024 ^ 3)), Décimales)) & " Go"
ElseIf DATA >= (1024 ^ 4) And DATA < (1024 ^ 5) Then 'Entre 1 To et 1023 To')
    OctetsToKoMoGo = (Round((DATA / (1024 ^ 4)), Décimales)) & " To"
End If
End Function

Conclusion :


Voila sinon je le entirement testé sauf pour le To
mais comme sa se base sur le meme principe que le rest je pense qu'il ny a pas de probleme.
Voila sinon encore merci a vbtom car ton modul m'est extremement utile et je m'en sert bcp !!!!

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 (OverDarck)