VFP 求小数位数设计一个简单程序,求小数位数.

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/07 13:49:59
VFP求小数位数设计一个简单程序,求小数位数.VFP求小数位数设计一个简单程序,求小数位数.VFP求小数位数设计一个简单程序,求小数位数.x="11.111"c=at(".",x)xsws=len(x

VFP 求小数位数设计一个简单程序,求小数位数.
VFP 求小数位数
设计一个简单程序,求小数位数.

VFP 求小数位数设计一个简单程序,求小数位数.
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即小数的位数。