十进制和二进制换算。vb版本

vb现在都快绝版了吧。。
哈哈，但是我现在的工作用的就是vb。
所以把这个分享出来。
十进制和二进制换算
还有个二进制小数部分换算成十进制小数部分

'十进制装换为二进制
'参数dec十进制的数，BinLen换算的二进制位数
Public Function DecToBin(dec As Double, BinLen As Byte) As String
    
    Dim binStr As String
    Dim a As Double
    Dim i As Integer
    
    Do While dec <> 0
        a = dec Mod 2
        binStr = a & binStr
        dec = dec \ 2
    Loop
    
    For i = 1 To 32 - Len(binStr)
        binStr = "0" & binStr
    Next
    DecToBin = binStr
End Function


'二进制换算为十进制
'参数Bin二进制的数
Public Function BinToDec(Bin As String) As Double
    Dim i As Integer
    Dim s As Integer
    
    s = Len(Bin)
    
    Dim decStr As Double
    
    For i = 1 To s
      decStr = decStr + Val(Mid(Bin, i, 1)) * 2 ^ (s - i)
    Next i
    
    
    BinToDec = decStr
    
End Function

'小数二进制换算十进制
'参数Bin 小数部分二进制数。换算出来是十进制的小数部分
Public Function dBinToDec(Bin As String) As Double
    Dim i As Integer
    Dim s As Integer
    
    s = Len(Bin)
    Dim decStr As Double
    
    For i = 1 To s
      decStr = decStr + Val(Mid(Bin, i, 1)) * 2 ^ (-i)
    Next i
    
    dBinToDec = decStr
    
End Function