保留有效数字的 SAS 实施方法

proc fcmp outlib=work.funcs.benfunc;
  function f_getdata(inputNumeric,significantDigit) $;
  attrib inputNumericprx inputNumericprx1 inputNumericprx2  outputNumeric  outputNumeric1 length=$100;
  outputNumeric='';
  inputNumericprx=compress(inputNumeric);
  if strip(inputNumericprx)^='0' then do;
  inputNumericprx1=strip(kscan(inputNumericprx,1,'.'));
  inputNumericheader=length(compress(inputNumericprx1,'-',''));
  if inputNumericprx1 not in ('0' '-0')  then  do;
  inputNumeric1=inputNumeric/10**inputNumericheader;
  end;
  else do;
    inputNumeric1=inputNumeric;
  end;
  BinputNumericprx=compress(inputNumeric1);
  BinputNumericprx1=strip(kscan(BinputNumericprx,1,'.'));
  BinputNumericprx2=strip(kscan(BinputNumericprx,2,'.'));
  BinputNumericindex=indexc(BinputNumericprx2,'123456789');
  inputNumericformat=strip("12.")||strip(put(BinputNumericindex+significantDigit-1,8.))||strip(".");
  outputNumeric=strip(putn(inputNumeric1,inputNumericformat));
  BinputNumericformat=strip("12.")||strip(put(significantDigit-length(compress(inputNumericprx1,'-','')),12.))||strip(".");
  if length(compress(inputNumericprx1,'-',''))>significantDigit-1 then outputNumeric=strip(put(input(outputNumeric,best.)*(10**inputNumericheader),12.));
  else if compress(inputNumericprx1,'-','')^='0' then  outputNumeric=strip(putn(input(outputNumeric,12.)*(10**inputNumericheader),BinputNumericformat));
  outputNumeric1=outputNumeric;
  end;
  if strip(inputNumericprx)='0'  then do;
    outputNumeric1='0';
  end;
  return(outputNumeric1);
  endsub;
run;

%macro getdata(inputNumeric,significantDigit,outputNumeric);
  inputNumeric=&inputNumeric.;
  if inputNumeric ^=0 then do;
    significantDigit=&significantDigit.;
    inputNumericprx=compress(vvalue(inputNumeric));
    inputNumericprx1=strip(kscan(inputNumericprx,1,'.'));
    inputNumericheader=length(compress(inputNumericprx1,'-',''));
    if inputNumericprx1 not in ('0' '-0')  then  inputNumeric1=inputNumeric/10**inputNumericheader;
    else  inputNumeric1=inputNumeric;
    BinputNumericprx=compress(vvalue(inputNumeric1));
    BinputNumericprx1=strip(kscan(BinputNumericprx,1,'.'));
    BinputNumericprx2=strip(kscan(BinputNumericprx,2,'.'));
    BinputNumericindex=indexc(BinputNumericprx2,'123456789');
    inputNumericformat=strip("12.")||strip(put(BinputNumericindex+significantDigit-1,12.))||strip(".");
    &outputNumeric.=strip(putn(inputNumeric1,inputNumericformat));
    BinputNumericformat=strip("12.")||strip(put(significantDigit-length(compress(inputNumericprx1,'-','')),??best12.))||strip(".");
    if length(compress(inputNumericprx1,'-',''))>significantDigit-1 then  &outputNumeric.=strip(input(&outputNumeric.,??best12.)*(10**inputNumericheader));
    else if compress(inputNumericprx1,'-','')^='0' then  &outputNumeric.=strip(putn(input(&outputNumeric.,??best12.)*(10**inputNumericheader),BinputNumericformat));
    drop inputNumeric  significantDigit inputNumericprx inputNumericprx1 inputNumericheader  inputNumeric1
    BinputNumericprx BinputNumericprx1  BinputNumericprx2 BinputNumericindex inputNumericformat BinputNumericformat;
  end;
  if inputNumeric =0 then do;
    &outputNumeric.='0';
  end;
%mend;