PROCEDURE RemoveDecimals (nNumber as number) >>* be aware, the number is retured as a string!!!! without trailing zero's >>LOCAL nCounter, cNewNumber, lcPoint, lcChar >>cNewNumber = ALLTRIM(STR(nNumber,20,10)) >>lcPoint = SET("POINT") >>FOR nCounter = LEN(cNewNumber) TO 1 STEP -1 >> lcChar = SUBSTR(cNewNumber,nCounter,1) >> DO CASE >> CASE lcChar = lcPoint >> cNewNumber = LEFT(cNewNumber, nCounter-1) >> EXIT >> CASE lcChar = "0" >> * Skip it >> OTHERWISE >> cNewNumber = LEFT(cNewNumber, nCounter) >> EXIT >> ENDCASE >>ENDFOR >> >>RETURN (cNewNumber ) >>