? A2B (19820627,16)

*!* 2010.08.27 By HARE≌XuWu

FUNCTION A2B

 LPARAMETERS lnValue, lnType

 lcResult = []

 DO WHILE lnValue # 0

  lnTem = MOD(lnValue,lnType)

  lnTem = lnTem + ASC([0]) + IIF(lnTem >= 10,7,0)

  lcResult = CHR(lnTem) + lcResult

  lnValue = INT(lnValue/lnType)

 ENDDO 

 RETURN lcResult 

ENDFUNC