Controlling your World the Easy Way

Code: Select all

Binary to decimal and decimal to binary conversions:
----------------------------------------------------

Public Function BinaryToDecimal(Binary As String) As Long
Dim n As Long
Dim s As Integer 
For s = 1 To Len(Binary)
n = n + (Mid(Binary, Len(Binary) - s + 1, 1) * (2 ^ (s - 1)))
Next s

BinaryToDecimal = n
End Function

-----------------------------------------------------

Public Function DecimalToBinary(DecimalNum As Long) As String
Dim tmp As String
Dim n As Long

n = DecimalNum

tmp = Trim(Str(n Mod 2))
n = n \ 2

Do While n <> 0
tmp = Trim(Str(n Mod 2)) & tmp
n = n \ 2
Loop

DecimalToBinary = tmp
End Function

Code: Select all

BIN$ (<value>,<digits>)
The BIN$ function converts an integer decimal <value> to its binary equivalent and returns the result as a character string. The number of binary digits  in the string (0s and 1s) is specified by <digits>.

Negative <digits> is big-endian, positive <digits> is little endian. 

This is the inverse function of BSTR. 

Example: 
PRINT BIN$(66,8) - prints 01000010