Expresar bytes en otras unidades
Truco de Visual Basic 6.0 - Expresar bytes en otras unidades
Function ConvBytes(ByVal Bytes#) As String
Dim Nm(0 To 4) As String, L As Integer
Dim S As String
Nm(0) = "Bytes"
Nm(1) = "Kilobytes"
Nm(2) = "Megabytes"
Nm(3) = "Gigabytes"
Nm(4) = "Terabytes"
L = 0
While (Fix(Bytes / 1024#) > 0) And (L < 4)
L = L + 1
Bytes = Bytes / 1024#
Wend
S = LTrim(Str(Bytes))
If InStr(1, S, ".") > 0 Then S = Left(S, InStr(1, S, ".") + 2)
ConvBytes = S + " " + Nm(L)
End Function
Más trucos de Trucos de Visual Basic 6.0
Trucos más leídos
Los trucos Trucos de Visual Basic 6.0 más vistos