18 de enero de 2010

Saber cuantos decimales tiene un número

Con esta función podemos saber la cantidad de decimales de un número pasado como parámetro.

? CuantosDecimales(1234.567) 
? CuantosDecimales(1234.500) 
? CuantosDecimales(9.999999) 

FUNCTION CuantosDecimales(tn) 
  LOCAL ln
  ln = 0 
  DO WHILE .T. 
    IF INT(tn * 10 ^ ln) == tn * 10 ^ ln 
      EXIT 
    ENDIF 
    ln = ln + 1 
  ENDDO 
  RETURN ln 
ENDFUNC 

Nota: La función solo soporta hasta 16 decimales

Luis María Guayán

No hay comentarios. :

Publicar un comentario