หน้าแรก › 5_2007-2008 › Convert Bytes to KB or MB
Advertisement
5_2007-2008 Coding Standards #178543

Convert Bytes to KB or MB

CovertLoop
★★★★★
4.8 · ดาวน์โหลด: 2,341

This code will enable you to convert bytes to kilobytes or megabytes, whichever you choose. Vote if ya wanna.

AI

สรุปโดย 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.

ซอร์สโค้ด
original-source 
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
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine