topic Re: extract year from macro format date in SAS Programming

extract year from macro format date

fsuzhang — Fri, 12 Apr 2019 01:14:28 GMT

I tried to extract year and month from macro function such as

%Get_year(2018-12-31);

can return

&year=2018

&month=12

I tried the following syntax but it return year 1967 instead of 2018 after calling the function %Get_year(2018-12-31);

%macro Get_year(end_dt);

%let edate=%sysfunc(inputn(&end_dt, yymmdd10.), date9.);
%put &edate.;
%let policy_dt = %sysfunc(intnx(month,&end_dt.,+30,end));
%put &policy_dt.;
%let year0 =%sysfunc(year(&policy_dt.));
%let year1 =%sysfunc(year(&edate.));

/* %let month=%sysfunc(month(&end_dt.)); */
%put &year0.;
%put &year1.;
/* %put &month.; */
%mend;

%Get_year(2018-12-31);

output:

31DEC2018

2890

ERROR: Argument 1 to function YEAR referenced by the %SYSFUNC or %QSYSFUNC macro function is not a number.

ERROR: Invalid arguments detected in %SYSCALL, %SYSFUNC, or %QSYSFUNC argument list. Execution of %SYSCALL statement or %SYSFUNC

or %QSYSFUNC function reference is terminated.

1967

Re: extract year from macro format date

Astounding — Fri, 12 Apr 2019 02:10:53 GMT

You're making life very difficult. Why not:

%let year = %substr(&end_dt, 1, 4);

Re: extract year from macro format date

fsuzhang — Fri, 12 Apr 2019 02:33:26 GMT

Thanks,

I know this is simple way, but sometime if the input date is not in that format, it doesn't work.

Re: extract year from macro format date

ChrisNZ — Fri, 12 Apr 2019 03:14:03 GMT

>sometime if the input date is not in that format, it doesn't work.

1. If it's not in this format then this won't work

%let edate=%sysfunc(inputn(&end_dt, yymmdd10.), date9.);

2. What other strings formats do you expect?

Re: extract year from macro format date

34reqrwe — Fri, 12 Apr 2019 03:44:22 GMT

Is this what you want ? Previously your &edate. was not a date

%macro Get_year(end_dt);

%let edate=%sysfunc(inputn(&end_dt, yymmdd10.));
%let policy_dt = %sysfunc(intnx(month ,&edate., 30,end));

%let year0 =%sysfunc(year(&policy_dt.)); 
%let year1 =%sysfunc(year(&edate.));
%let month=%sysfunc(month(&edate.));
%put &year0.;
%put &year1.;
%put &month.;
%mend;

%Get_year(2018-12-31);