01-09-2012، 04:03 PM
این سورس با وی بی 6 بود که تابع هم براش ساختم.
بایت رو تبدیل به کیلوبایت و مگابایت میکنه
سورس:
بایت رو تبدیل به کیلوبایت و مگابایت میکنه
سورس:
کد:
Private Declare Function StrFormatByteSize Lib "shlwapi" Alias "StrFormatByteSizeA" (ByVal dw As Long, ByVal pszBuf As String, ByRef cchBuf As Long) As String
Private Sub Form_Load()
MsgBox ByteToKb("1123455")
End Sub
Public Function ByteToKb(InputNumber As String) As String
On Error Resume Next
Dim Buffer As String
Dim Result As String
Buffer = Space$(255)
Result = StrFormatByteSize(InputNumber, Buffer, Len(Buffer))
If InStr(Result, vbNullChar) > 1 Then
ByteToKb = Left$(Result, InStr(Result, vbNullChar) - 1)
End If
End Function