如何使字符变量等于任意 SAS 格式的数值变量的格式化值？

Question

如果我有一个具有格式的数字变量，有没有办法将格式化值作为字符变量获取？

例如，我想编写如下内容以将 10/06/2009 打印到屏幕上，但没有 putformatted() 函数。

data test;
  format i ddmmyy10.;
  i = "10JUN2009"d;
run;

data _null_;
  set test;
  i_formatted = putformatted(i); /* How should I write this? */
  put i_formatted;
run;

（显然我可以编写 put(i, ddmmyy10.)，但我的代码需要适用于 i 恰好具有的任何格式。）

Answer 1

VVALUE 函数使用与变量关联的格式来格式化传递给它的变量。以下是使用 VVALUE 的代码：

data test;
  format i ddmmyy10.;
  i = "10JUN2009"d;
run;

data _null_;
  set test;
  i_formatted = vvalue(i);
  put i_formatted;
run;

虽然 cmjohns 解决方案比此代码稍快，但此代码更简单，因为不涉及宏。

Answer 2

使用vformat()函数。

/* test data */
data test;
  i = "10jun2009"d;
  format i ddmmyy10.;
run;

/* print out the value using the associated format */
data _null_;
  set test;
  i_formatted = putn(i, vformat(i));
  put i_formatted=;
run;
/* on log
i_formatted=10/06/2099
*/

Answer 3

这似乎对我尝试过的一对夫妇有效。我使用 VARFMT 和宏函数来检索给定变量的格式。

 data test;
  format i ddmmyy10. b comma12.;
  i = "10JUN2009"d;
  b = 123405321;
run;


%macro  varlabel(variable) ;
  %let dsid=%sysfunc(open(&SYSLAST.)) ;
  %let varnum=%sysfunc(varnum(&dsid,&variable)) ;
  %let fmt=%sysfunc(varfmt(&dsid,&varnum));
  %let dsid=%sysfunc(close(&dsid)) ;
  &fmt
%mend varlabel;

data test2;
  set test;
  i_formatted = put(i, %varlabel(i) );
  b_formatted = put(b, %varlabel(b) );
  put i_formatted=;
  put b_formatted=;
run;

这给了我：

i_formatted=10/06/2009
b_formatted=123,405,321

Answer 4

我可以使用宏代码和 sashelp.vcolumn 来完成此操作，但有点繁琐。

proc sql noprint;
  select trim(left(format)) into :format
    from sashelp.vcolumn
    where libname eq 'WORK' and memname eq 'TEST';
run;

data test2;
  set test;
  i_formatted = put(i, &format);
  put i_formatted;
run;

Answer 5

是的，有一个 putformatted() 函数。实际上有两个：putc() 和 putn()。 putc 处理字符格式，putn() 处理数字。您的代码需要查看格式名称（所有且仅以“$”开头的字符格式）来确定使用哪个格式。以下是 putc 的语法（来自交互式帮助）：

PUTC(source, format.<,w>)

参数

source 
is the SAS expression to which you want to apply the format.

format. 
is an expression that contains the character format you want to apply to source.

w 
specifies a width to apply to the format. 

Interaction: If you specify a width here, it overrides any width specification
in the format.