不一定是多大的数，肯定是有小数部门

想知道这个数的个位是几位，小数点后是几位　　

怎么做　　。。。

aa='123.40'
?len(alltrim(aa))-IIF(at(".",alltrim(aa))=0,len(alltrim(aa)),at(".",alltrim(aa)))

[此贴子已经被作者于2016-1-12 07:49编辑过]

sn = TRANSFORM(12345.67890)
? JUSTSTEM(sn)
? JUSTEXT(sn)

此方法简单可行。但有一点：transform(10.00)会转化为“10”，丢掉了小数位“00”，不知道这是否满足要求。
对于一个数值型常数或内在变量来说，你无法判断 10 与 10.00 的区别。
但是对于字段变量来说，是可以区分 10 与 10.00 的。参考如下：

USE 表1
SET FIELD TO 字段1
= AFIELDS(aFld)
SET FIELD TO ALL
cValue = LTRIM(STR(字段1,aFld(3),aFld(4)))
? '字段的整数部分：'+JUSTSTEM(cValue)
? '字段的小数部分：'+JUSTEXT(cValue)

还有这样的，厉害啊。
? JUSTSTEM(sn)=12345
? JUSTEXT(sn)=67890

a=1234.567800
a=alltrim(padl(a,20," ")) &&VFP中数值型数据有效长度不会超过20位
? "整数位数：",len(JUSTSTEM(a))
? "小数位数：",len(JUSTEXT(a))

[此贴子已经被作者于2016-1-12 09:25编辑过]

高！
用 PADL()要比使用 TRANSFORM()好，转换时不会丢失整数后面的小数位！
PADL()函数的第三个参数可以省略，省略时默认就是空格。可精简为 a = ltrim(padl(a,20))

[此贴子已经被作者于2016-1-12 09:32编辑过]

可以用格式符

这个可以，应该可以省略alltrim()
a=0.000000
a=padl(a,20," ") &&VFP中数值型数据有效长度不会超过20位
? "整数位数：",len(JUSTSTEM(a))
? "小数位数：",len(JUSTEXT(a))[/quote]

刚才试了一下，JUSTSTEM()有去除字符串前面空格的功能
b="  123"
?JUSTSTEM(b)
结果为：123 &&显示时前面没有空格
JUSTEXT()有去除字符串后面空格的功能
b="  1.23 "
?Len(JUSText(b))
结果为：2 &&小数位长度为2，说明小数位数不包括后面的空格

[此贴子已经被作者于2016-1-12 10:06编辑过]