• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

fLaSh_PT

Formatar bytes [transferido para wiki]

1 mensagem neste tópico

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.

0

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