home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / NUMBER / NUMBERS.BAS next >
Encoding:
BASIC Source File  |  1991-10-04  |  1.1 KB  |  60 lines
  1. '
  2. 'These routines replace Visual Basic's "missing"
  3. 'binary coded decimal and IEEE string/numeric
  4. 'conversion routines found in QuickBASIC 4.X
  5. 'as well as the BASIC PDS.
  6. '
  7. 'Marquis Computing
  8. '
  9.  
  10. DefInt A-Z
  11.  
  12. Function MKL$ (AnyNumber As Long)
  13.     NumL.Num = AnyNumber
  14.     LSet StrL = NumL
  15.     MKL$ = StrL.S
  16. End Function
  17.  
  18. Function MKD$ (AnyNumber As Double)
  19.     NumD.Num = AnyNumber
  20.     LSet StrD = NumD
  21.     MKD$ = StrD.S
  22. End Function
  23.  
  24. Function CVD# (bcd$)
  25.     StrD.S = bcd$
  26.     LSet NumD = StrD
  27.     CVD = NumD.Num
  28. End Function
  29.  
  30. Function CVL& (bcd$)
  31.     StrL.S = bcd$
  32.     LSet NumL = StrL
  33.     CVL = NumL.Num
  34. End Function
  35.  
  36. Function CVS! (bcd$)
  37.     StrS.S = bcd$
  38.     LSet NumS = StrS
  39.     CVS = NumS.Num
  40. End Function
  41.  
  42. Function CVI (bcd$) As Integer
  43.     StrI.S = bcd$
  44.     LSet NumI = StrI
  45.     CVI = NumI.Num
  46. End Function
  47.  
  48. Function MKI$ (AnyNumber As Integer)
  49.     NumI.Num = AnyNumber
  50.     LSet StrI = NumI
  51.     MKI$ = StrI.S
  52. End Function
  53.  
  54. Function MKS$ (AnyNumber As Single)
  55.     NumS.Num = AnyNumber
  56.     LSet StrS = NumS
  57.     MKS$ = StrS.S
  58. End Function
  59.  
  60.