我有大约30个数据集,每个数据集约有20个日期字段,其中变量类型在字符和数字之间以及日期和日期时间格式之间变化,即以下情况......
a . )数字 - 日期b . )数字 - 日期时间c . )字符 - 日期d . )字符 - 日期时间
我想将每个字段转换为数字和date9 . 格式 . 我尝试编写下面的宏,当变量是一个字符串时,它不会产生正确的结果 . 出了什么问题? ...如果未正确指定字符变量dateformat,则sas似乎无法正确解释输入语句 .
%macro converttodate(inlib,indata,outlib,outdata,invar,outvar);
ods listing close;
ods output dataset.variables = work.formats;
proc contents data = &inlib..&indata.;
run;
data work.formats;
set work.formats;
where lowcase(compress(variable)) = lowcase(compress("&invar."));
run;
data _NULL_;
set work.formats;
call symput('dtype',compress(lowcase(type)));
call symput('dformat',compress(lowcase(format)));
call symput('dlen',compress(put(len,8.)));
run;
%PUT INVAR = ** &invar. ** OUTVAR = ** &outvar. **;
%PUT TYPE = ** &dtype. **;
%PUT FORMAT = ** &dformat. **;
%PUT LENGTH = ** &dlen. **;
%if &dtype. = num %then %do;
data &outlib..&outdata.;
length tmp_put $50;
set &inlib..&indata.;
format &outvar. date9.;
tmp_put = compress(put(&invar.,&dformat.));
if index(tmp_put,':') > 0 then &outvar. = datepart(&invar.);
else &outvar. = &invar.;
drop tmp_put;
run;
%end;
%else %do;
data &outlib..&outdata.;
set &inlib..&indata.;
format &outvar. date9.;
if index(&invar.,':') > 0 then &outvar. = datepart(input(&invar.,datetime.));
else &outvar. = input(&invar.,date.);
run;
%end;
%mend;
例如 .
data work.test;
format x1 date9. y1 datetime30.6;
x1 = mdy(10,16,1922);
x2 = put(x1,date9.);
y1 = 100000;
y2 = put(y1,datetime30.6);
run;
%converttodate(
inlib = work,
indata = test,
outlib = work,
outdata = test,
invar = x2,
outvar = x2_out);
2 回答
宏中的这一行导致意外行为:
日期的默认长度 . 它是7,因此它将日期读作16OCT19,即2019年
http://support.sas.com/documentation/cdl/en/etsug/60372/HTML/default/viewer.htm#etsug_intervals_sect008.htm
如果你将它改为date9,它将正常工作 . 如果要更改整个宏,可以查看inputn函数,其中函数的第二个参数可以通过输入数据的长度动态确定 .
如果我在输入语句中使用正确的字符串长度,则输出变量似乎变得正确 . 我在%else%do之后调整了代码;如下