API :CONVERTIR DES OCTETS EN KO,MO,GO EN FONCTION DE LA VALEUR

Commentaire de SkyRocKo le 18/02/2006 22:51:23

J'ai essayé de reproduire cette fonction et voici le même code sans API à la diffèrence près que les valeurs sont arrondies à n décimales près, et non pas tronquées comme avec l'API.

Voici le code:

Public Function StrFormatByteSize(ByVal dw As Long, Optional NumDigitsAfterDecimal As Long = 2) As String
  Dim sValue As String
    Select Case (dw \ 1024)
        Case Is >= 1024000
            sValue = CStr(Round(dw / (1024 ^ 3), NumDigitsAfterDecimal)) & " Go"
        Case Is >= 1000
            sValue = CStr(Round(dw / (1024 ^ 2), NumDigitsAfterDecimal)) & " Mo"
        Case Is >= 1
            sValue = CStr(Round(dw / 1024, NumDigitsAfterDecimal)) & " Ko"
        Case Is = 0
            sValue = CStr(Round(dw)) & " octets"
    End Select
    Let StrFormatByteSize = sValue
End Function

Commentaire de Patrice99 le 19/02/2006 09:08:32

et la fonction qui va avec :

Public Function sFormaterNumerique$(ByVal rVal!)

    ' Formater un numérique avec une précision d'une décimale

    ' Le format numérique standard est correct (séparation des milliers et plus),
    '  il suffit juste d'enlever la décimale inutile si 0

    Dim nfi As Globalization.NumberFormatInfo = _
        New Globalization.NumberFormatInfo
    ' Définition des spérateurs numériques
    nfi.NumberGroupSeparator = " "   ' Séparateur des milliers, millions...
    nfi.NumberDecimalSeparator = "." ' Séparateur décimal
    ' 3 groupes pour milliard, million et millier
    ' (on pourrait en ajouter un 4ème pour les To : 1000 Go)
    nfi.NumberGroupSizes = New Integer() {3, 3, 3}
    nfi.NumberDecimalDigits = 1 ' 1 décimale de précision
    sFormaterNumerique = rVal.ToString("n", nfi) ' n : numérique général
    ' Enlever la décimale si 0
    sFormaterNumerique = sFormaterNumerique.Replace(".0", "")

End Function

Commentaire de MasterHack le 19/02/2006 15:06:10

Salut;
GetFileSize dans le cas d'un fichier local, sinon la fonction sujet peut etre utiliser dans des cas tels le telechargement de fichiers distants.
Merci pour vos codes, c'est tres instructif.

Commentaire de Maksime le 20/02/2006 11:56:53

--> MadM@tt : c'est lié au fait que tout est en binaire en informatique. Tout est là
http://fr.wikipedia.org/wiki/Octet

Commentaire de ScSami le 20/02/2006 14:51:26

Windows est un OS et a ce titre il ne décide rien! Mais si ta question est de savoir si Crosoft est pour quelque chose dans le fait qu'on passe des unités à leurs kilos puis leur méga ... je dirais non, évidemment!!! Tu sais, en base dix aussi on peut parler en Kilos ... D'ailleurs, certains commerçants parlent en KE (KiloEuros... anciennement KF). La particularité du 024 est juste du au binaire. Je sais pas ce que ça donnerait en trinaire mais ce ne serait pas non plus "juste" (000) !

Commentaire de FAS le 24/02/2006 01:26:55

MadM@tt >> C'est 1024, parce que ça s'approche du 1000 du système de notation scientifique standard : théoriquement, on devrait pas dire un kilo-octet pour 1024 octet mais un "kibi-octet". Un kilo-octet valant 1000 octets. Dans la pratique, à part pour les fabricants de disque dur qui peuvent comme ça indiquer des valeurs qui semblent supérieures à ce qu'elles sont en vrai, personne n'utilise la notation "kibi", et tout le monde dit "kilo" pour 1024, même si c'est un peu différent.

Mais tout cela était bien expliqué dans la page donnée par Maksime.