module1.bas

VB二进制十 六进制之间转换的小程序

Attribute VB_Name = "Module1"
Option Explicit

Public Function DecimalToBinary(DecimalValue As Long, MinimumDigits As Integer) As String

Dim result As String
Dim ExtraDigitsNeeded As Integer

DecimalValue = Abs(DecimalValue)

Do
    result = CStr(DecimalValue Mod 2) & result
    DecimalValue = DecimalValue \ 2
Loop While DecimalValue > 0


ExtraDigitsNeeded = MinimumDigits - Len(result)
If ExtraDigitsNeeded > 0 Then
    result = String(ExtraDigitsNeeded, "0") & result
End If

DecimalToBinary = result

End Function