找出小數(shù)點(diǎn)位數(shù)

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;

復(fù)制代碼

先根據(jù)程序自動得到數(shù)據(jù)集aaa中x的小數(shù)點(diǎn)位數(shù)，結(jié)果是4，再將其放入宏變量。
程序如何實(shí)現(xiàn)？

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;
得到小數(shù)點(diǎn)的位置，但是不太明白，放入宏變量是什么意思。
data _null_;
        set bbb;
        call execute('%test('||z||')');
run;
是需要這樣嗎？

zy_4613 發(fā)表于 2019-3-19 08:40
data aaa;
input x;
cards;

我希望找出變量取值中小數(shù)點(diǎn)位數(shù)最多的位數(shù)是多少

dxystata 發(fā)表于 2019-3-19 08:51
我希望找出變量取值中小數(shù)點(diǎn)位數(shù)最多的位數(shù)是多少

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;
第一次弄錯(cuò)了

l1i2n3i4n5g 發(fā)表于 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會在數(shù)字和字符自動轉(zhuǎn)換

看來還沒達(dá)到樓主要求。再努力一下：
Data bbb;
set aaa;y=scan(x,2, ".");
if y=" " then decimal=0;
else decimal=length(scan(x,2, "."));
drop y;
run;
Decimal 就是數(shù)據(jù)aaa 中變量x的小數(shù)點(diǎn)位數(shù)。


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 發(fā)表于 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的結(jié)果應(yīng)該是0，結(jié)果出錯(cuò)哦！