home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / numconv / numconv.ex_ / numconv.ex / 3081 / SOURCE / 2 < prev    next >
Encoding:
Text File  |  1999-07-20  |  596 b   |  24 lines
  1. Attribute VB_Name = "mdlNum2Hex"
  2. Function Num2Hex(Number As Long)
  3. On Error GoTo Error
  4. Number = Abs(Int(Number))
  5. If Number = 0 Or Number > (16 ^ 8) - 1 Then GoTo Error
  6. Dim sHex As String
  7. Do While Number > 0
  8.     sHex = BaseDigit(Number Mod 16) & sHex
  9.     Number = Int(Number / 16)
  10. Loop
  11. Do While Left(sHex, 1) = "0"
  12.     sHex = Mid(sHex, 2)
  13. Loop
  14. Num2Hex = sHex
  15. If Val("&H" & sHex) = 0 Then Num2Hex = "0"
  16. Exit Function
  17. Error:
  18. Num2Hex = "0"
  19. End Function
  20.  
  21. Function BaseDigit(Number As Byte)
  22. If Number < 10 Then BaseDigit = Number Else BaseDigit = Chr(Number + 55)
  23. End Function