26 de julio de 2004

Hexadecimal a Binario

Función que transforma un número hexadecimal en binaro.
? Hex2Bin("123ABC")

FUNCTION Hex2Bin(tcHex)
  LOCAL lcRet, lnDec, lnI
  lcRet = ""
  FOR lnI = 1 TO LEN(ALLTRIM(tcHex))
    lnDec = EVALUATE("0x"+SUBSTR(tcHex,lnI,1))
    lcRet = lcRet + ;
      IIF(BITTEST(lnDec,3),"1","0") + IIF(BITTEST(lnDec,2),"1","0") + ;
      IIF(BITTEST(lnDec,1),"1","0") + IIF(BITTEST(lnDec,0),"1","0")
  ENDFOR
  RETURN lcRet
ENDFUNC

NOTA: Otra forma mas directa de pasar un número Hexadecimal a Decimal:
? EVALUATE("0x" + "123ABC")

Luis María Guayán

No hay comentarios. :

Publicar un comentario