FormatMemorySize – Format a value in bytes

FormatMemorySize – Format a value in bytes

Enum FormatMemorySizeUnits    BestGuess    Bytes    Kilobytes    Megabytes    GigabytesEnd Enum' convert a number of bytes into Kbytes, Megabytes, or GigabytesFunction FormatMemorySize(ByVal value As Long, _    ByVal unit As FormatMemorySizeUnits, Optional ByVal decimalDigits As _    Integer = 2, Optional ByVal omitThousandSeps As Boolean = False) As String    ' simple error checking     If value < 0 Then Throw New ArgumentException("Value can't be negative")    ' get the best unit, if required    If unit = FormatMemorySizeUnits.BestGuess Then        Select Case value            Case Is < 1023                unit = FormatMemorySizeUnits.Bytes                decimalDigits = 0            Case Is < 1024 * 1023                unit = FormatMemorySizeUnits.Kilobytes            Case Is < 1048576 * 1023                unit = FormatMemorySizeUnits.Megabytes            Case Else                unit = FormatMemorySizeUnits.Gigabytes        End Select    End If    ' evaluate the decimal value    Dim val As Decimal    Dim suffix As String     Select Case unit        Case FormatMemorySizeUnits.Bytes            val = value        Case FormatMemorySizeUnits.Kilobytes            val = value / 1024            suffix = "K"        Case FormatMemorySizeUnits.Megabytes            val = value / 1048576            suffix = "M"        Case FormatMemorySizeUnits.Gigabytes            val = value / 1073741824            suffix = "G"    End Select    ' get the string representation    Dim format As String    If omitThousandSeps Then        format = "F" & decimalDigits.ToString    Else        format = "N" & decimalDigits.ToString    End If    Return val.ToString(format) & suffixEnd Function

See also  Comparing different methods of testing your Infrastructure-as-Code

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist