Convert Bytes to KB or MB
This code will enable you to convert bytes to kilobytes or megabytes, whichever you choose. Vote if ya wanna.
AI
Tóm tắt bởi AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Mã nguồn
Private Declare Function StrFormatByteSize Lib _ "shlwapi" Alias "StrFormatByteSizeA" (ByVal _ dw As Long, ByVal pszBuf As String, ByRef _ cchBuf As Long) As String Public Function FormatKB(ByVal Amount As Long) _ As String Dim Buffer As String Dim Result As String Buffer = Space$(255) Result = StrFormatByteSize(Amount, Buffer, _ Len(Buffer)) If InStr(Result, vbNullChar) > 1 Then FormatKB = Left$(Result, InStr(Result, _ vbNullChar) - 1) End If End Function
Bình luận gốc (3)
Được khôi phục từ Wayback Machine