Ir para o conteúdo
fLaSh_PT

Formatar bytes [transferido para wiki]

Mensagens Recomendadas

fLaSh_PT    0
fLaSh_PT

Para VB.NET

Private Function FormatBytes(ByVal dblBytes As Double) As String
Const KILOBYTE As Double = 1024
Const MEGABYTE As Double = KILOBYTE ^ 2 '  kilpbyte elevado a 2
Const GIGABYTE As Double = KILOBYTE ^ 3 '  kilpbyte elevado a 3
Const TERABYTE As Double = KILOBYTE ^ 4 '  kilpbyte elevado a 4
Const PETABYTE As Double = KILOBYTE ^ 5 '  kilpbyte elevado a 5
'Seleciona o formato mais opropriado
Select Case dblBytes
	Case Is >= PETABYTE
		Return System.Math.Round(dblBytes / PETABYTE, 2) & " PiB"
	Case Is >= TERABYTE
		Return System.Math.Round(dblBytes / TERABYTE, 2) & " TiB"
	Case Is >= GIGABYTE
		Return System.Math.Round(dblBytes / GIGABYTE, 2) & " GiB"
	Case Is >= MEGABYTE
		Return System.Math.Round(dblBytes / MEGABYTE, 2) & " MiB"
	Case Is >= KILOBYTE
		Return System.Math.Round(dblBytes / KILOBYTE, 2) & " KiB"
	Case Else
		Return dblBytes & " Bytes"
End Select
End Function

Para VB 6

Private Function FormatBytes(ByVal dblBytes As Double) As String
Const KILOBYTE As Double = 1024
Const MEGABYTE As Double = KILOBYTE ^ 2 '  kilpbyte elevado a 2
Const GIGABYTE As Double = KILOBYTE ^ 3 '  kilpbyte elevado a 3
Const TERABYTE As Double = KILOBYTE ^ 4 '  kilpbyte elevado a 4
Const PETABYTE As Double = KILOBYTE ^ 5 '  kilpbyte elevado a 5
'Seleciona o formato mais opropriado
Select Case dblBytes
	Case Is >= PETABYTE
		FormatBytes = FormatNumber(dblBytes / PETABYTE, 2) & " PiB"
	Case Is >= TERABYTE
		FormatBytes = FormatNumber(dblBytes / TERABYTE, 2) & " TiB"
	Case Is >= GIGABYTE
		FormatBytes = FormatNumber(dblBytes / GIGABYTE, 2) & " GiB"
	Case Is >= MEGABYTE
		FormatBytes = FormatNumber(dblBytes / MEGABYTE, 2) & " MiB"
	Case Is >= KILOBYTE
		FormatBytes = FormatNumber(dblBytes / KILOBYTE, 2) & " KiB"
	Case Else
		FormatBytes = dblBytes & " Bytes"
End Select
End Function

Simple função, mas bem estruturada :thumbsup:

Compr.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade