VFP 求小数位数
来源:百度知道 编辑:UC知道 时间:2024/06/07 21:01:16
设计一个简单程序,求小数位数。谢谢!!
x="11.111"
c=at(".",x)
xsws=len(x)-c
?xsws
fuction xsws
para pn_number
local i
do while pn_number-int(pn_number)<>0
i=i+1
pn_temp=pn_temp*10
enddo
return i
endfunc
i即小数的位数。