|
|
Postada em 05/04/2006 08:34 hs
Queria uma função que transformasse bytes em kb! Deve ser fácil! |
|
|
|
|
|
|
|
Postada em 05/04/2006 08:45 hs
Olá Hennyere. Explique melhor o que você quer. Você quer fazer um cálculo que converta um valor em bytes pra KB (tipo 2048 bytes pra KB => 2048 / 1024 = 2 KB) ou você quer alguma outra coisa??? Desculpe não ter entendido e fico no aguardo da sua resposta!!!
Abraços!!! 
by
Gustavo Bittencourt Costa
|
|
|
|
|
|
Postada em 05/04/2006 09:05 hs
É isso mesmo, + ñ entendi completamnete: Tenho um sistema, que calcula o tamanho de um arquivo e retorna em bytes. Gostaria de fazer um cálculo daques bytes, para que retornasse em kb ou seja: um arquivo com 65.954 bytes é o mesmo com 64,4 KB. Entendeu? |
|
|
|
|
|
Postada em 05/04/2006 09:13 hs
Arredondado: Valor_em_bytes 1024 Exato: Valor_em_bytes / 1024
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 05/04/2006 09:26 hs
Tente isso Hennyere: Function Converte(i As Single) As Single Converte = i / 1024 End Function Espero ter ajudado!!!
Abraços!!!
by
Gustavo Bittencourt Costa
|
|
|
|
|
|
Postada em 05/04/2006 10:21 hs
Ajudou muito amigo, e eu acabei achando uma função + completa: Public Function ConvertBytes(cBytes As Long)
Dim nBytes
Dim nBytes2
Dim nBytesConverted
nBytes = Val(cBytes / 1024)
nBytes2 = Val(nBytes / 1024)
Select Case Len(cBytes)
Case 1, 2, 3
nBytesConverted = cBytes & " Bytes"
Case 4, 5, 6
nBytesConverted = Format((cBytes / 1024), "0.00 KB")
Case Else
If Len(nBytes2) <= 3 Then
nBytesConverted = Format((nBytes2), "0 MB")
Else
nBytesConverted = Format((nBytes2 / 1024), "0.00 GB")
End If
End Select
ConvertBytes = nBytesConverted
End Function
|
|
|
|
