CONVERTIR DES OCTETS EN KO,MO, ET GO
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/1287-convertir-des-octets-en-ko-mo-et-go
https://codes-sources.commentcamarche.net/source/1287-convertir-des-octets-en-ko-mo-et-go
10 déc. 2001 à 19:05
24 août 2001 à 22:32
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 ;)
24 août 2001 à 21:37
8 juin 2001 à 17:38
8 juin 2001 à 06:27