سورس کد تبدیل بایت به کیلوبایت و مگابایت

کد:

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