>SET DECIMALS TO 7 >? n2/n1, NTOM(n2/n1), n2/n1 * fldcur, fldcur * n2/n1, fldcur * (n2/n1), n2 * fldcur / n1 >? "Numeric (Round): ", ROUND(n2/n1,4) * fldn, fldn * ROUND(n2/n1,4) >>
>>* Tested in versions VFP5, VFP7, VFP 9 and VFP 9 Sp1 >>CLEAR >>CLOSE tables all >>CREATE CURSOR testcrs (fldn N(12,4), fldcur Y) >>ln=300000 >> >>INSERT INTO testcrs VALUES (ln,ln) >>n1=43.05 >>n2=44.06 >> >>?"Variable: ", n2/n1 * ln, ln * n2/n1 && ~same >>?"Numeric field: ", n2/n1 * fldn, fldn * n2/n1 && ~same >> >>?"Currency field: ", n2/n1 * fldcur, fldcur * n2/n1 && 307050.0000, 307038.3275 different >>?"Currency2Numeric: ", n2/n1 * MTON(fldcur), MTON(fldcur) * n2/n1 && ~same >>>>