sas 截取2位小数（非四舍五入）

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

data a;
input i $20.;
datalines;
0.125
-1.125
1.125
100.125
2.12567
-10.12345
;
run;
/*data b;*/
/*set a;*/
/*j=i-int(i);*/
/*y=input(j,$20.);*/
/*if j<0 then z=substr(y,1,5);*/
/*if j>0 then z=substr(y,1,4);*/
/*yy=int(i)+z*1;*/
/*run;*/
直接截取2位小数，即小数点后全为0.12
我这样测试了好像可行，有没有更好的方法

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：四舍五入 SUBSTR Input Lines Data

要那么精确干嘛？路过，顶！

少考虑一个 特殊的 比如 -100.000 100.00000
这样即使增加if j>=0 then z=substr(y,1,4); 也不能得到-+100.00

1. data out;
   
2. set a;
   
3. position=index(i,'.');
   
4. out=substr(i,1,position+2);
   
5. run;

复制代码

OR

1. data a;
   
2.         input i $20.;
   
3. datalines;
   
4. 0.125
   
5. -1.125
   
6. 1.125
   
7. 100.125
   
8. 2.12567
   
9. -10.12345
   
10. ;
    
11. run;
    
12. 
    
13. data b;
    
14.         set a;
    
15.         length yy $10;
    
16.         yy=substr(i,1,index(i,'.')+2);
    
17. run;

复制代码

好吧 用必杀技  
iii=prxchange('s/(\d+).(\d\d)(\d+)/$1.$2/',-1,i);

也在学习SAS

如果i都一定有至少2位小数，下面的code应该可以实现
data test;
        set a;
        j = input(i, 8.2);
        yy = sign(j) * round(abs(j) - 0.005, 0.01);
run;

大家回答都很精彩，谢谢!
从@zhou.wen and @zhengbo8方法看这题的核心为 substr 和 index 函数联用

data b;
        set a;
        j=INT(i*100)/100;
run;

你看这样行吗？