怎么保留有效数字？ [推广有奖]

完美解决。



先变字符，再转数字，从根本上改变为所要的结果，保留有效数字。
在SAS自动转化时，会自动四舍五入。
若只用FORMAT，只是改变输出格式，而没有改变数值本身，虽然看不出差别。

你说的意思不是像下面所示的那样吧？

%let a=0.03244214678;
%let b=%SYSFUNC(ROUND(&a,0.00001));
%put &b;

用round函数加参数可以确定保留到小数点后几位，但不能确定有效数字

你所说的保留有效数字的方法，估计得用其他函数来解决了，不知道SAS里有没有
我先查查看

data x;
input x;
cards;
0.438484941
0.464599606
9.495493169
9.942254617
0.001569698
0.01562698
3.762151003
1.399460795
0.20005887
10.98864735
3.985306473
9.852477223
2.979635042
;
run;

/*宏功能，不改变变量名字，但将数值变量变成字符变量，因为根据需要，只有字符变量才能满足要求
var为要修改的变量，n为小数点后保留几位有效数字*/
%macro validnum(var=,n=);
position=indexc(left(&var),"123456789");
if position<=3 then z=round(&var,1/(10**&n));
else z=round(&var,1/10**(position+&n-3));
if 10**(&n-2)<scan(z,2,".")+0<10**(&n-1) then var=strip(z)||"0"; /*解决末尾恰好是零被省略的问题*/
else if 10**(&n-2)>=scan(z,2,".")+0 then var=strip(z)||"00";
else var=left(z);
drop &var;
rename var=&var;
drop position z;
%mend;

data c;
set x;
%validnum(var=x,n=4);
run;

凡事都要靠自己

嗯，刚在google搜，结果又搜回本坛

https://bbs.pinggu.org/thread-2124278-1-1.html

你看这个行不行，比你写的简单，

查了一下帮助，也没看懂这个格式d7.4

帮助中说这是d浮动格式。

data one;
  input x;
datalines;
0.00001616
0.0051368
35.479
3149.0865
; run;

%let d=3;
data two;
    set one;
  if int(x) ne 0 then
        x1 = round(x, 10**(-&d));
  else  x1 = round(x, 10**(-1*(abs(int(log10(abs(x))))+&d)));
run;
proc print data=two; format x x1 15.10; title 'two'; run;