• Home
 · 
• String Manipulation
 · 
• Fast code to convert decimal to binary numbers

Fast code to convert decimal to binary numbers

Fast code to convert decimal to binary numbers

Rate Fast code to convert decimal to binary numbers

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

 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