Cool.
>Try following function
>
>FUNCTION LenDecimals
>LPARAMETER tnTestNum
>LOCAL lcNumber, lnPos, lnResult
>
>lcNumber = LTRIM( PADL( tnTestNum, 99))
>lnPos = AT( ".", lcNumber)
>IF lnPos = 0
> lnResult = 0
>ELSE
> lnResult = LEN( lcNumber) - lnPos
>ENDIF
>
>RETURN lnResult