21 de marzo de 2000

Conversión de binario a decimal

Conversión de binario a decimal

*------------------------------------------------
FUNCTION _Bin2Dec(cBinario)
*------------------------------------------------
* Transforma un número binario a decimal
* USO: _Bin2Dec(cBinario)
* solo "1's" y "0's"
* RETORNA: Numérico
*------------------------------------------------
  LOCAL lnFinal, lnDecimal, lnI
  cBinario = ALLTRIM(cBinario)
  lnFinal = LEN(cBinario)
  lnDecimal = 0
  FOR lnI = lnFinal TO 1 STEP -1
    lnDecimal = lnDecimal + ;
      VAL(SUBS(cBinario,lnI,1)) * 2^(lnFinal - lnI)
  ENDFOR
  RETURN lnDecimal
ENDFUNC

Luis María Guayán

No hay comentarios. :

Publicar un comentario