Procedure yDec2Hex LPARAMETERS pnDecimal retval="" DO WHILE pnDecimal#0 retval = iHdigit(pnDecimal % 16) + retval pnDecimal=FLOOR(pnDecimal / 16) ENDDO ?retval RETURN retval *--------------------------------- Procedure iHdigit LPARAMETERS pn DO case CASE pn<10 RETURN TRANSFORM(pn) OTHERWISE RETURN CHR(pn + 55) endcase*----------------------------
? TRANSFORM(12345, "@0")>>Hi! from santo domingo.