Convertir des octets en ko,mo, et go

Commenter

Contenu du snippet

Une petite fonction qui convertit les octets en Ko,Mo et Go.Utile pour les explorateurs ou les dérivés

VBTOM.

Source / Exemple : 


Function OctetsToKoMoGo(DATA As Currency) As String
'-------------------------------------------
'vbtom
'e-mail : vbtom@free.fr
'site web : http://vbtom.phidji.com
'-------------------------------------------
'1024 Octets = 1 Ko
'Pour cette conversion la valeur renvoyé est arrondi à deux décimales
Dim Décimales
Décimales = 2
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 ^ 2) ^ 2) Then 'Entre 1 Mo et 1023 Mo
    OctetsToKoMoGo = (Round((DATA / (1024 ^ 2)), Décimales)) & " Mo"

ElseIf DATA >= ((1024 ^ 2) ^ 2) And DATA < (((1024 ^ 2) ^ 2) ^ 2) Then 'Entre 1 Go et 1023 Go
    OctetsToKoMoGo = (Round((DATA / ((1024 ^ 2) ^ 2)), Décimales)) & " Go"
'Désolé je peux pas aller plus loin que 1023 Go je sais pas ce qu'il y a après
'Si vous savez mailez moi. Merci.
End If
End Function

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