>FUNCTION _DecToFraction(nDec1) >*----------------------------------- >* Transforma de Decimal a Fraccion >* Uso: _DecToFraction(nDec1) >* Devuelve: Caracter >*----------------------------------- > LOCAL cRes, nCon > nCon = 0 > cRes = "No Fraction" > DO WHILE nCon<1000000 > nCon = nCon+1 > DO CASE > CASE MOD(nCon,nDec1)=0 > cRes=ALLTRIM(STR(nCon))+"/"+ALLTRIM(STR(nCon/nDec1)) > EXIT > ENDCASE > ENDDO > RETURN cRes >ENDFUNC >>