Yuri,

Thanks so much for the code example

>Another part could be like this:
>
>Procedure iDeci2Frac
>LParameter pMixed
>Local lcMixed, retval, lnWhole, lnNumer, lnDenumer
>
>lcMixed=trans(pMixed)
>lnWhole=val(left(lcMixed,at(".",lcMixed)-1))
>lnNumer=val(substr(lcMixed,at(".",lcMixed)+1))
>lnDenumer=val("1"+repl("0",len(substr(lcMixed,at(".",lcMixed)+1))))
>
>do while lnNumer%2=0
> lnNumer=lnNumer/2
> lnDenumer=lnDenumer/2
>enddo
>do while lnNumer%5=0
> lnNumer=lnNumer/5
> lnDenumer=lnDenumer/5
>enddo
>
>retval=alltr(str(lnNumer))+"/"+alltr(str(lnDenumer))
>do case
>case lnWhole>0
> retval=alltr(str(lnWhole))+" and "+retval
>case lnWhole <0
> retval="-("+alltr(str(-1*lnWhole))+" and "+retval+")"
>endcase
>
>Return retval
>*----------
>Best wishes
>
>
>
>>>>>>>previous messages below
>
>Hi George
>
>Well that part was easy!
>
>Thanks
>
>>>Does anyone have code to convert a fraction to a decimal and from decimal to a fraction?
>>>
>>>
>>>Thanks
>>
>>John,
>>
>>Assuming you mean a string
>lnresult = EVALUATE(lcfraction)
>Changing lnresult back to a string takes more work. Basically, it would be involve using lnresult as the numerator and 10, 100, or whatever as the denominator and finding the common factors.