Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse

Conversion unités/octets

Soyez le premier à donner votre avis sur cette source.

Snippet vu 22 976 fois


Contenu du snippet

Function O2T(ByVal Value As Double, Optional ByVal ValueType As Byte = 0, Optional ByVal ValueFinal As Byte = 2) As Double 
    O2T = Value * 1024 ^ (CInt(ValueType) - ValueFinal) 
End Function 

' Un petit exemple
Sub Command1_Click() 
    'Convertion de la taille d'un fichier : Octet -> Mega-Octet
    MsgBox O2T(FileLen("C:\Fichier.txt"), 1, 2) 
    MsgBox O2T(1024, 0, 1)  'Retourne 1
End Sub

Compatibilité : VB6, VBA

Disponible dans d'autres langages :

A voir également

Ajouter un commentaire

Commentaires

Votre évaluation

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.