? 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
Los comentarios son moderados, por lo que pueden demorar varias horas para su publicación.