• Home
 · 
• Math/Dates
 · 
• Converts decimal numbers to binary

Converts decimal numbers to binary

Converts decimal numbers to binary

API Declarations


Dim count As Integer
Dim BIN As String



Rate Converts decimal numbers to binary

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

For count = 7 To 0 Step -1
 If conv And (2 ^ count) Then
  BIN = BIN + "1"
 Else
  BIN = BIN + "0"
 End If
Next
txtBinary.Text = BIN