Здравствуйте ВладимирМ!
Захотел поделиться способом который сам пользую. Чесно говоря не знаю для всех ли версий VFP, но
для 6,7 вроде катит.


a=123.456789000
?m.a
123.456789000
?TRANSFORM(m.a)
123.456789000
* кол. знаков пос. запятой
?LEN(SUBSTR(TRANSFORM(m.a),AT(',',TRANSFORM(m.a))+1))
9
* кол. знаков пос. запятой для VFP7
?LEN(GETWORDNUM(TRANSFORM(m.a),2,','))
9

Функция TransForm() обрезает концевые нули. Во всяком случае это происходит у меня VFP6SP5.

Однако мне подсказали другой способ перевода.
a=123.456789000

b=ALLTRIM(PADC(m.a,30))
*Количество знаков после запятой
?Len(m.b)-AT(SET('Point'),m.b)

Только надо учесть случай, когда число целое.