home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sheriffa / converta.prg < prev    next >
Encoding:
Text File  |  1999-01-23  |  1012 b   |  33 lines
  1. * ConvertAPI.prg 08-Oct-97 
  2. * these functions convert to/from internal binary storage
  3. *
  4. *==========================================
  5. FUNCTION ToWord(pnNumber)
  6. *---------------------------
  7. LOCAL lnMSB, lnLSB
  8. lnMSB = INT(pnNumber / 256)              && most significant byte
  9. lnLSB = pnNumber % 256                  && least significant byte
  10. RETURN CHR(lnLSB) + CHR(lnMSB)
  11.  
  12.  
  13. *==========================================
  14. FUNCTION ToLong(pnNumber)
  15. *---------------------------
  16. LOCAL lnMSW, lnLSW
  17. lnMSW = INT(pnNumber / 65536)      && most significant word
  18. lnLSW = pnNumber % 65536              && least significant word
  19. RETURN ToWord(lnLSW) + ToWord(lnMSW)
  20.  
  21.  
  22. *==========================================
  23. FUNCTION FromWord(pcBuffer)
  24. *---------------------------
  25. RETURN ASC(SUBSTR(pcBuffer,2,1)) * 256 + ASC(left(pcBuffer,1))
  26.  
  27.  
  28. *==========================================
  29. FUNCTION FromLong(pcBuffer)
  30. *---------------------------
  31. RETURN FromWord(SUBSTR(pcBuffer,3,2)) * 65536 ;
  32.                  + FromWord(left(pcBuffer,2))
  33.