home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / numconv / numconv.ex_ / numconv.ex / 3081 / SOURCE / 1 next >
Encoding:
Text File  |  1999-07-20  |  532 b   |  24 lines
  1. Attribute VB_Name = "mdlNum2Bin"
  2. Function Num2Bin(Number)
  3. On Error GoTo Error
  4. Number = Abs(Int(Val(Number)))
  5. If Number = 0 Or Number > (2 ^ 32) - 1 Then GoTo Error
  6. Dim sBin As String
  7. For i = 0 To 31
  8.     If Number >= 2 ^ (31 - i) Then
  9.         sBin = sBin & "1"
  10.         Number = Number - 2 ^ (31 - i)
  11.     Else
  12.         sBin = sBin & "0"
  13.     End If
  14. Next i
  15. Do While Left(sBin, 1) = "0"
  16.     sBin = Mid(sBin, 2)
  17. Loop
  18. Num2Bin = sBin
  19. If Val(sBin) = 0 Then Num2Bin = "0"
  20. Exit Function
  21. Error:
  22. Num2Bin = "0"
  23. End Function
  24.