README.md

Description

Converting numbers to binary

algie@tcp.co.uk (Alan Davis)

More Info

Submitted On
By	Newsgroup Posting
Level	Unknown
User Rating	5.0 (10 globes from 2 users)
Compatibility	VB 3.0, VB 4.0 (16-bit), VB 4.0 (32-bit), VB 5.0, VB 6.0
Category	Math/ Dates
World	Visual Basic
Archive File

Source Code

Public Function DecToBin(ByVal DecNumber As Currency) As String
On Error GoTo DecToBin_Finally
Dim BinNumber As String
Dim i%
  For i = 64 To 0 Step -1
    If Int(DecNumber / (2 ^ i)) = 1 Then
      BinNumber = BinNumber & "1"
      DecNumber = DecNumber - (2 ^ i)
    Else
      If BinNumber <> "" Then
        BinNumber = BinNumber & "0"
      End If
    End If
  Next
  DecToBin = BinNumber
DecToBin_Finally:
  If Err <> 0 Or BinNumber = "" Then DecToBin = "-E-"
  Exit Function
End Function