Decimal Integer to Binary String

Just put this function any where and pass a a number from 0 to 65535. You can pass higher that I think, but the function only pads the resulting string to 8 digit string or 16 digit string. anyway here it is:

Function dec2bin(N As Long) As String
ell:
If N > 0 Then
a = a + CStr(N Mod 2)
N = N \ 2
GoTo ell
End If
a = StrReverse(a)
g = Len(a)
If g < 8 Then
t = String$(8 - Len(a), "0")
a = t + a
End If
If g > 8 Then
t = String$(16 - Len(a), "0")
a = t + a
End If
dec2bin = a
End Function

You might also like...

Comments

Michael H

Contribute

Why not write for us? Or you could submit an event or a user group in your area. Alternatively just tell us what you think!

Our tools

We've got automatic conversion tools to convert C# to VB.NET, VB.NET to C#. Also you can compress javascript and compress css and generate sql connection strings.

“Nine people can't make a baby in a month.” - Fred Brooks