Feedback

VB - Umrechnung von Byte bis Yottabyte

Veröffentlicht von am 16.11.2007
(3 Bewertungen)
Braucht man eine Function die von Bytes bis Yottabyte alles sauber zurückliefert, leistet das folgende Snippet nette Dienste
GFU-Schulungen  [Anzeige]

XML und .NET Überblick

Um auf dem neuesten Wissensstand zu sein, sollten Sie unser aktuelles ASP .NET Komplett Seminar belegen.
Nach dem Seminar kennen Sie die wichtigsten Strömungen in der Software-Technologie

VB.NET Komplett

Sie stehen vo der Aufgabe, individuelle Anwendungen für Windows zu schreiben. Hier ist VB.NET die optimale Sprache. Sie erlernt sich recht leicht und passt sich komplett in die .NET Umgebung von Microsoft ein. Nach der Schulung entwickeln Sie anwenderfreundliche Programme in VB.NET . Mit den objektorientierten Modellen in VB.NET erzeugen Sie außerdem wiederverwendbare Komponenten.

    ''' <summary>
    ''' Bytes Formatiert nach KB, MB, GB, etc. ausgeben
    ''' 
    ''' Kilobyte  (kB) =                             1024  Byte 
    ''' Megabyte  (MB) =                         1.048.576 Byte 
    ''' Gigabyte  (GB) =                     1.073.741.824 Byte 
    ''' Terabyte  (TB) =                 1.099.511.627.776 Byte 
    ''' Petabyte  (PB) =             1.125.899.906.842.624 Byte 
    ''' Exabyte   (EB) =        1.152.921.504.606.846.976  Byte 
    ''' Zettabyte (ZB) =     1.180.591.620.717.411.303.424 Byte 
    ''' Yottabyte (YB) = 1.208.925.819.614.629.174.706.176 Byte 
    ''' 
    ''' </summary>
    ''' <param name="dblbytes"></param>
    ''' <param name="strFormated"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
Private Function FormatBytes(ByVal dblbytes As Double, ByVal strFormated As String) As String
        Dim arrPosForm() As String = {"Bytes", "Kilobyte", "Megabyte", "Gigabyte", _
            "Terabyte", "Petabyte", "Exabyte", "Zettabyte", "Yottabyte"}
        For i As Integer = arrPosForm.Length - 1 To 0 Step -1
            If dblbytes > 1024 ^ i Then
                dblbytes /= 1024 ^ i
                Return dblbytes.ToString(strFormated) & " " & _
                    arrPosForm(i)
            End If
        Next i

        Return dblbytes.ToString(strFormated) & " Bytes"
End Function


'Aufruf:

FormatBytes(Me.TextBox2.Text, "0.00")
Abgelegt unter Format Bytes, byte, Umrechnung.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!