home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / CLIPUDF.ARC / SCI.PRG < prev   
Encoding:
Text File  |  1986-02-04  |  896 b   |  40 lines
  1. * Function ..... SCI()
  2. * Date ......... August 30,1985
  3. * Syntax ....... SCI(<numeric>,<numeric>)
  4. * Parameters ... Two numeric values, either as variable or as constants
  5. * Returns ...... The scientific value betoween the to values passed
  6.  
  7. FUNCTION SCI
  8. PARAM NUM,DPL
  9. E = 0
  10. SET DECIMALS TO DPL
  11. IF NUM >= 0
  12.      SGN = ""
  13. ELSE
  14.      SGN = "-"
  15.      NUM = NUM * -1
  16. ENDIF
  17. IF NUM < 1
  18.      DO WHILE NUM < 1
  19.          NUM = NUM * 10
  20.          E = E - 1
  21.      ENDDO
  22. ELSE
  23.      DO WHILE NUM >= 10
  24.          NUM = NUM / 10
  25.          E = E + 1
  26.      ENDDO
  27. ENDIF
  28. SN = STR(NUM)
  29. SE = STR(E)
  30. CTRA = 1
  31. CTRB = 1
  32. DO WHILE SUBSTR(SN,CTRA,1) = " "
  33.      CTRA = CTRA + 1
  34. ENDDO
  35. DO WHILE SUBSTR(SE,CTRB,1) = " "
  36.      CTRB = CTRB + 1
  37. ENDDO
  38. S = SGN + SUBSTR(SN,CTRA) + "E" + SUBSTR(SE,CTRB)
  39. RETURN(S)
  40.