>Hey George
>
>Her is one that I think is better...
>
>

>LPARAMETER lcString
>LOCAL lnNum, lnDom, lnMax, lnDecimal, lnPower
>lnMax = 64
>lnNum = 1
>lnDom = 2
>lnPower = 1
>lnDecimal = VAL(lcString)
>* Decimal part only
>DO WHILE lnDom <= lnMax
>  lnDom = 2^lnPower
>  lnNum = lnDecimal * lnDom
>  IF ROUND(lnNum,0) == lnNum
>    EXIT
>  ENDIF
>  lnPower = lnPower + 1
>ENDDO
>RETURN ALLTRIM(STR(lnNum)) + "/" + ALLTRIM(STR(lnDom))+["]
>

>
>Still need to take into consideration rounding for a generic function
>
>TGIF
>
>Thank George it's Friday

< beg >Really, John, the only thing that matters is that it works.< s > I came up with my own version. If you interested

FUNCTION Dec2Fraction

  LPARAMETER tnDec
  
  LOCAL lcresult, lnpt, lnnum, lcdec, lnexp,;
    lndenom, lcdenom
  lcresult = ""
  lcdec = TRANSFORM(tnDec)
  lnpt = AT(".", lcdec)
  IF lnpt > 0
    lnexp = LEN(SUBSTR(lcdec, lnpt + 1))
    lndenom = 2 ^ lnexp
    lnnum = 0
    DO WHILE lnnum / lndenom # tnDec
      lnnum = lnnum + 1
    ENDDO
    lcresult = TRANSFORM(lnnum) + "/" + TRANSFORM(lndenom)
  ENDIF
  RETURN lcresult
ENDFUNC

This only works for fractions where the denominator is a power of 2.