Hi Ron,

I'm glad the code is usefull to you.

>I looked at your code and it's far more elegant than mine. I have tested it and it returns the same results that I had already achieved. I have replaced my code with yours.
>
>Thanks!
>
>Regards,
>
>Ron
>
>>What about

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 )
>>