主题：默认小数位

请问怎样取某个品种的默认小数位？

FRACPART( )

看下这个函数取小数

怎样取小数的位数？比如0.2是1位小数，小数位数是1，谢谢

a:FRACPART( )//先取得小数位数

FRACPART(a*10)=0 //1位小数

FRACPART(a*100)=0 //2位

FRACPART(a*1000)=0 //3位

呃，谢谢，

不过好像有点不对

VARIABLE:an=0,num=0;
a:FRACPART(c);

if FRACPART(a*10)=0 and num=0 then an:=1;               //1位小数

else if FRACPART(a*100)=0  then
begin
an:=2;                                                                         //2位小数,由于类似2.80这种小数直接判断会返回1所以加了个num的控制关
num:=1;
end

answer:an                                                                  //最后输出这个位数

非常感谢！