VB6支持96个1的二进制与十进制的互相转换程序

'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