Здравствуйте ВладимирМ!
Захотел поделиться способом который сам пользую. Чесно говоря не знаю для всех ли версий 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
Владимир Максимов
24.01.02 11:07:59
Функция TransForm() обрезает концевые нули. Во всяком случае это происходит у меня VFP6SP5.
Однако мне подсказали другой способ перевода.
a=123.456789000
b=ALLTRIM(PADC(m.a,30))
*Количество знаков после запятой
?Len(m.b)-AT(SET('Point'),m.b)