Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 823 fois - Téléchargée 40 fois
Public Function OctetsToKoMoGo(DATA) As String Dim Décimales Décimales = 2 Debug.Print DATA 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" ElseIf DATA >= (1024 ^ 4) And DATA < (1024 ^ 5) Then 'Entre 1 To et 1023 To') OctetsToKoMoGo = (Round((DATA / (1024 ^ 4)), Décimales)) & " To" End If End Function
26 févr. 2003 à 13:50
OctetsToKoMoGo(Mataile*1024)
en multipliant par 1024 sa te donne la taille en octect (a partir de celle en ko) et en l'envoyant dans le module sa la convertie a l'unitée superieur si necesaire, donc si ta taile est superieure a 1024ko.
26 févr. 2003 à 00:57
Mais Une Question Comment On Fait Quand Le System Revoit deja En KB
merçi
31 janv. 2003 à 22:30
28 janv. 2003 à 09:42
Private Declare Function StrFormatByteSize Lib "shlwapi" Alias "StrFormatByteSizeA" _
(ByVal dw As Long, ByVal pszBuf As String, ByRef cchBuf As Long) As String
Private Function FormatKB(ByVal Amount As Long) As String
'formatte un nombre en KB, MB, ...
Dim buffer As String
Dim result As String
buffer = Space$(255)
result = StrFormatByteSize(Amount, buffer, Len(buffer))
If InStr(result, vbNullChar) > 1 Then
FormatKB = Left$(result, InStr(result, vbNullChar) - 1)
End If
End Function
exemple :
FormatKB 150000
donne "146 KB"
26 janv. 2003 à 22:26
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.