USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2014   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página