|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Operações Matemáticas)
|
|
 |
Título da Dica: Converter Bytes em Kb, Mb ou Gb
|
 |
|
|
|
Postada em 5/4/2006 por ¨Hennyere¨
Function ConvertBytes(cBytes)
Dim nBytes
Dim nBytes2
Dim nBytesConverted
nBytes = Val(cBytes / 1024)
nBytes2 = Val(nBytes / 1024)
Select Case Len(cBytes)
Case 1, 2, 3
'BYTES
nBytesConverted = cBytes & " Bytes"
Case 4, 5, 6
'KILO BYTES
nBytesConverted = Format((cBytes / 1024), "0.00 KB")
Case Else
If Len(nBytes2) <= 3 Then
'MEGA BYTES
nBytesConverted = Format((nBytes2), "0 MB")
Else
'GIGA BYTES
nBytesConverted = Format((nBytes2 / 1024), "0.00 GB")
End If
End Select
ConvertBytes = nBytesConverted
End Function
'Josefh Hennyere
|
|
|
|
|
