Convertir des octets en ko,mo, et go
Soyez le premier à donner votre avis sur cette source.
Snippet vu 23 443 fois - Téléchargée 59 fois
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.
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
- Vb mo
- Conversion octet en ko - Meilleures réponses
- Convertir octet en ko - Meilleures réponses
- Visual Basic / VB.NET : Convertir des octets en ko,mo, go et to - CodeS SourceS - Guide
- Visual Basic / VB.NET : Api :convertir des octets en ko,mo,go en fonction de la valeur - CodeS Sourc - Guide
- Visual Basic / VB.NET : Conversion octet => ko, mo, go ... - CodeS SourceS - Guide
- Affiche la taille d'un fichier avec la bonne unité(octet,ko,mo,go) - Codes sources - PHP (Fichier / Disque)
- PHP : Calcul ordre de grandeur automatique pour taille de fichier (octet, ko, mo, go, to...) - CodeS - Guide
Commentaires
Function OctetsToKoMoGo(DATA As Currency) As String
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 ^ 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"
End If
End Function
voila qui devrait retablir l'ordre public dans ce coin...bande d'inconscient, aller je m explique au cas ou vous ne verrez rien : voyons, pkoi doubler ta puissance de 1024 a chaque fois alors qu il ne faut que l'incrementer...hum...c les bases basiques, ca, en maths...
ciao
see u soon ;)
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.