VB Code:
Function Bin(ByVal X As Long) As String Do Bin = (X And 1) & Bin X = X \ 2 Loop While X End Function
|
Results 1 to 1 of 1
Thread: [VB] Binary
|
Click Here to Expand Forum to Full Width |