FUNCTION n2c LPARAMETERS lnInData,lnDecimal LOCAL lcReturn lcReturn=LTRIM(TRANSFORM(lnInData,'99999999999.999999')) IF PCOUNT()=1 OR lnDecimal=0 lcreturn=LEFT(lcReturn,AT(SET('point'),lcReturn)-1) * lcreturn=JUSTSTEM(lcreturn) does not work if decimal komma ELSE lcreturn=LEFT(lcReturn,AT(SET('point'),lcReturn)+lnDecimal) ENDIF RETURN lcReturnIt is probably possible to make this shorter with iif(), but not very readable.
>? NTOC(0.2, 1) &&-> 0.2 >? NTOC(0.2, 0) &&-> 0 >* but >? NTOC(0.6, 1) &&-> 0.6 >? NTOC(0.6, 1) &&-> 1 >>
>>FUNCTION NTOC && Numeric to character, trims the result, optional number of decimals) >> PARAMETERS lnInData,lnDecimal >> IF PCOUNT()=1 >> lnDecimal=0 >> ENDIF >>RETURN LTRIM(STR(lnInData,10,lnDecimal))>>ntoc(0.20,1)=0.2