I've made this function few weeks ago:

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

>I need to convert a decimal to a fraction... anyone have/know of a function for this?
>
>
>.5 --> 1/2
>
>.1875 --> 3/16
>
>TIA