format output memorysize





3
Date Submitted Thu. Mar. 2nd, 2006 4:27 AM
Revision 1 of 1
Syntax Master dannyboy
Tags Format | memory | VBSCRIPT
Comments 0 comments
mySizeMemory:this function just formats the output the way I like Input integer in Bytes, outputs easily human readable format

Function mySizeMemory(integerSize)

If integerSize >= 1000000000 Then
        mySizeMemory = Round(integerSize / 1047000000, 1)
        mySizeMemory = mySizeMemory & " GB"
ElseIf ((1000000000 > integerSize) And (integerSize >= 1000000)) Then
        mySizeMemory = Int(integerSize / 1047000)
        mySizeMemory = mySizeMemory & " MB"
ElseIf ((1000000 > integerSize) And (integerSize >= 1000)) Then
        mySizeMemory = Int(integerSize / 1024)
        mySizeMemory = mySizeMemory & " KB"
Else
        mySizeMemory = integerSize & " Bytes"
End If

End Function
 

Comments

There are currently no comments for this snippet.

Voting