* AUTOR: ANDERSON CARDOSO SILVA
* www.caclipperwebsite.com
*******************************

CLS
? 23870, " EM DECIMAL : ", DEC2HEX(23870)
? 188, " EM DECIMAL : ", DEC2HEX(188)
QUIT

FUNCTION DEC2HEX(nDEC)
cHEX :=""
IF VALTYPE(nDEC)="N"
   aBASE16 := {"0","1","2","3","4","5","6","7","8","9",;
               "A","B","C","D","E","F"}
   aHEX := {}
   nDIVIDENDO := nDEC
   nQUOCIENTE := 1
   DO WHILE nQUOCIENTE # 0
      nQUOCIENTE := INT(nDIVIDENDO/16)
      nRESTO     := nDIVIDENDO % 16
      nRESTO++   // SOMA 1 PORQUE aBASE16 COME€A COM "0" E NÇO "1"
      cHEX       := aBASE16[nRESTO]
      aADD(aHEX, cHEX)
      nDIVIDENDO := nQUOCIENTE
   ENDDO
ENDIF
cHEX := ""
FOR X=LEN(aHEX) TO 1 STEP -1
    cHEX += aHEX[X]
NEXT
RETURN cHEX