java 日期时间变量申明_将未知日期/日期时间格式的字符变量转换为数字日期

我有大约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);