如何将十进制转为二进制

Question

如何将十进制转为二进制

Answer 1

十进制转为二进制函数Public Function DecToBin(ByVal DecNumber As Currency) As String
    On Error Goto DecToBin_Finally
    Dim BinNumber As String
    Dim i%
    For i = 64 To 0 Step -1
        If Int(DecNumber / (2 ^ i)) = 1 Then
            BinNumber = BinNumber & "1"
            DecNumber = DecNumber - (2 ^ i)
        Else
            If BinNumber <> "" Then
                BinNumber = BinNumber & "0"
            End If
        End If
    Next
    DecToBin = BinNumber
    DecToBin_Finally:
    If Err <> 0 Or BinNumber = "" Then DecToBin = "-E-"
    Exit Function
End Function