Decimal to binary

[PhilWalker]

just ewondering if there is a simple way of converting a decimal number to its binary equivalent

[Matthew Gates]

Try this:

Public Function dec2bin(mynum As Variant) As String
    Dim loopcounter As Integer
    If mynum >= 2 ^ 31 Then
        dec2bin = "Too big"
        Exit Function
    End If
    Do
        If (mynum And 2 ^ loopcounter) = 2 ^ loopcounter Then
            dec2bin = "1" & dec2bin
        Else
            dec2bin = "0" & dec2bin
        End If
        loopcounter = loopcounter + 1
    Loop Until 2 ^ loopcounter > mynum
End Function

[Nucleus]

A rationalised one is here:

http://forums.vb-world.net/showthrea...ghlight=binary