找出小数点位数

1. data aaa;
   
2. input x;
   
3. cards;
   
4. 1
   
5. 1.1
   
6. 2.22
   
7. 3.1415
   
8. 13.141
   
9. 110.1
   
10. ;
    
11. run;

复制代码

先根据程序自动得到数据集aaa中x的小数点位数，结果是4，再将其放入宏变量。
程序如何实现？

proc sql;
   select max(length(scan(put(x,best12.),2))) into : result
   from aaa;
quit;

data aaa;
input x;
cards;
1
1.1
2.22
3.1415
13.141
110.1
;
run;
data bbb;
        set aaa;
        y=int(x);
        if x=y then z=0;
        else z=sum(length(compress(int(x))),1);
run;
得到小数点的位置，但是不太明白，放入宏变量是什么意思。
data _null_;
        set bbb;
        call execute('%test('||z||')');
run;
是需要这样吗？

zy_4613 发表于 2019-3-19 08:40
data aaa;
input x;
cards;

我希望找出变量取值中小数点位数最多的位数是多少

dxystata 发表于 2019-3-19 08:51
我希望找出变量取值中小数点位数最多的位数是多少

data aaa;
input x;
cards;
1
1.1
2.22
3.1415
13.141
110.1
;
run;
data bbb;
        set aaa;
        y=sum(x,-int(x));
        z=sum(length(compress(y)),-2);
run;
proc sql;
        select max(z) into: macro_name from bbb;
quit;
第一次弄错了

l1i2n3i4n5g 发表于 2019-3-19 09:33
proc sql;
   select max(length(scan(put(x,best12.),2))) into : result
   from aaa;

proc sql;
   select max(length(scan(x,2, "."))) into : result
   from aaa;
quit;
反正SAS会在数字和字符自动转换

看来还没达到楼主要求。再努力一下：
Data bbb;
set aaa;y=scan(x,2, ".");
if y=" " then decimal=0;
else decimal=length(scan(x,2, "."));
drop y;
run;
Decimal 就是数据aaa 中变量x的小数点位数。


Proc sql ;
select max(decimal) into :MaxDecimal
from bbb;
quit;
%put the maximum decimal is %left(&MaxDecimal);


最后用%put 把宏变量MaxDecimal的值写到SAS log:

the maximum decimal is 4

谢谢各位！

data aaa;
        set aaa;
        num=length(strip(x))-length(strip(scan(x,1,".")))-1;
        if num<0 then num=0;
run;
proc sql noprint;
        select max(num) into:num from aaa;
quit;
%put &num.;

l1i2n3i4n5g 发表于 2019-3-19 07:15
proc sql;
   select max(length(scan(put(x,best12.),2))) into : result
   from aaa;

data aaa;
input x;
cards;
11
111
;
run;
dec的结果应该是0，结果出错哦！