Convert Byte to Mb
Convert Byte to Mb
How do i convert Byte to Mb!
And if i use label1.text = myfilehere / 1024
I get like 105,8408448
So is it possible to round up or convert it to like 2.0?
//H
And if i use label1.text = myfilehere / 1024
I get like 105,8408448
So is it possible to round up or convert it to like 2.0?
//H
how about, on topic...
@ Convert Bytes to MB
or you can use if statements and return value
Or
Play around the hard way, if your converting only bytes to mb, use the formula in code box one, and create if statments ,
example :
Hope this helps
@ Convert Bytes to MB
Code:
Public Function BytesToMegabytes(Bytes As Double) As Double Dim mathbtmb As Double math = (Bytes / 1024) / 1024 BytesToMegabytes = Format(mathbtmb, "###,###,##0.00") ' 0 for more decimal places. End Function
Code:
Function Numeric2Bytes(ByVal b As Double) As String
Dim byteSize(8) As String
Dim i As Integer
byteSize(0) = "Bytes"
byteSize(1) = "KB"
byteSize(2) = "MB"
b = CDbl(b)
For i = UBound(bytesize) To 0 Step -1
If b >= (1024 ^ i) Then
Numeric2Bytes = ThreeNonZeroDigits(byte / (1024 ^ _
i)) & " " & byteSize(i)
Exit For
End If
Next
End Function
Private Function ThreeNonZeroDigits(ByVal value As Double) _
As String
If value >= 100 Then
Return Format$(CInt(value))
ElseIf value >= 10 Then
Return Format$(value, "0.0")
Else
Return Format$(value, "0.00")
End If
End Function
Play around the hard way, if your converting only bytes to mb, use the formula in code box one, and create if statments ,
example :
Code:
If mathbytes >= 1.890 then label1.text = 2 'or whatever end if ' or else end if
Originally Posted by NextGen1
how about, on topic...
@ Convert Bytes to MB
or you can use if statements and return value
Or
Play around the hard way, if your converting only bytes to mb, use the formula in code box one, and create if statments ,
example :
Hope this helps
@ Convert Bytes to MB
Code:
Public Function BytesToMegabytes(Bytes As Double) As Double Dim mathbtmb As Double math = (Bytes / 1024) / 1024 BytesToMegabytes = Format(mathbtmb, "###,###,##0.00") ' 0 for more decimal places. End Function
Code:
Function Numeric2Bytes(ByVal b As Double) As String
Dim byteSize(8) As String
Dim i As Integer
byteSize(0) = "Bytes"
byteSize(1) = "KB"
byteSize(2) = "MB"
b = CDbl(b)
For i = UBound(bytesize) To 0 Step -1
If b >= (1024 ^ i) Then
Numeric2Bytes = ThreeNonZeroDigits(byte / (1024 ^ _
i)) & " " & byteSize(i)
Exit For
End If
Next
End Function
Private Function ThreeNonZeroDigits(ByVal value As Double) _
As String
If value >= 100 Then
Return Format$(CInt(value))
ElseIf value >= 10 Then
Return Format$(value, "0.0")
Else
Return Format$(value, "0.00")
End If
End Function
Play around the hard way, if your converting only bytes to mb, use the formula in code box one, and create if statments ,
example :
Code:
If mathbytes >= 1.890 then label1.text = 2 'or whatever end if ' or else end if
No problem, hope it works out for you
been wondering how to do this myself. thx
Problem solved. Request close.
Edit: removed the !
Edit: removed the !
This thread is closed for replies.
