'VB6支持96个1的二进制与十进制的互相转换程序
Public Function BIN_to_DEC(ByVal Bin As String) As Variant
'******************************************************************
' 用途:将二进制转化为十进制
' 输入:Bin(二进制数)
' 输入数据类型:String
' 输出:BIN_to_DEC(十进制数)
' 输出数据类型:Decimal
' 输入的最大数为(96个1),输出最大数为"79228162514264337593543950335"
' by chiaboyzyq(猴哥) 2010-03-22
'******************************************************************
Dim i As Integer
BIN_to_DEC = CDec(BIN_to_DEC)
For i = 1 To Len(Bin)
BIN_to_DEC = BIN_to_DEC * 2 + Mid(Bin, i, 1)
Next i
End Function
Public Function DEC_to_BIN(ByVal Dec) As String
'******************************************************************
' 用途:将十进制转化为二进制
' 输入:Dec(十进制数)
' 输入数据类型:Decimal
' 输出:DEC_to_BIN(二进制数)
' 输出数据类型:String
' 输入的最大数为"79228162514264337593543950335",输出最大数为(96个1)
' by chiaboyzyq(猴哥) 2010-03-22
'******************************************************************
Dim Bit As String, tmp As Byte
DEC_to_BIN = ""
Dec = CDec(Dec)
Do While Dec > 0
tmp = Right(Dec, 1)
If tmp Mod 2 = 0 Then Bit = 0 Else Bit = 1
DEC_to_BIN = Bit & DEC_to_BIN
Dec = Int(Dec / 2 + 0.5)
If tmp Mod 2 <> 0 Then Dec = Dec - 1
Loop
End Function
Private Sub Command1_Click() '测试
Debug.Print DEC_to_BIN("79228162514264337593543950335") 'VB6的最大数
Debug.Print BIN_to_DEC("111111111111111111111111111111111111111111111111" & _
"111111111111111111111111111111111111111111111111")
Debug.Print DEC_to_BIN("2147483647") 'VB6长整最大数
Debug.Print BIN_to_DEC("1111111111111111111111111111111")
Debug.Print DEC_to_BIN("32767") 'VB6整型最大数
Debug.Print BIN_to_DEC("111111111111111")
End Sub