Author : WAR System
Date Submitted : 1/10/2005
Category : String Handling/Manipulation
Compatibility : VB 6
This code has been accessed 5875 times.
Task : Fast code to convert decimal to binary numbers
Declarations
Code
Public Function Bin(ByVal Numero As Single) As String
Dim Binario As String, Inicial() As String, Final() As String
Dim Contador As Integer
Dim i As Integer, j As Integer, k As Integer
Do
Binario = Binario & CStr(Numero Mod 2)
Numero = Numero \ 2
Contador = Contador + 1
Loop Until Numero < 1
ReDim Inicial(Contador)
ReDim Final(Contador)
Binario = Trim(Binario)
For i = 1 To Contador
Inicial(i) = Mid$(Binario, i, 1)
Next i
Binario = ""
For j = 1 To Contador
Final(j) = Inicial(Contador + 1 - j)
Next j
For k = 1 To Contador
Binario = Binario & Final(k)
Next k
If Len(Binario) < 16 Then
Do While Len(Binario) < 16
Binario = "0" + Binario
Loop
End If
Bin = Binario
End Function