A Binary Printing with only 10 lines of code !
No attachments for this post
This procedure prints the binary code of a number on Immediate window.
Original Author: Eduardo B. Castro
Num as Long
You can easily change the procedure to a function for returning the binary code.
Public Sub PrintBinary(Num As Long)
Dim j&, i&
j = 128
For i = 8 To 1 Step -1
If (Num And j) = 0 Then
j = j / 2
Comments on this post
No comments have been added for this post.
You must be logged in to make a comment.