topic Re: how to add 45day intervals for 1 year in SAS Programming

how to add 45day intervals for 1 year

HitmonTran — Thu, 01 Oct 2020 22:23:27 GMT

Hi,

How do I add 45days from from a year ago to today's date?

this is what i have so far in my program but it is only adding 45days for 08OCT2019 (period 2).

I need to create period 3, period 4, period 5, etc. until present day. Thank you

data x;
    period1dt='08OCT2019'd;
    day45=intnx('day',period1dt,45);
run;

Re: how to add 45day intervals for 1 year

jimbarbour — Thu, 01 Oct 2020 22:32:40 GMT

If it's it's a set period you need the 45 day incrdments for, you could do something like:

data x;
    period1dt='08OCT2019'd;

    day45_1=intnx('day',period1dt,45);
    day45_2=intnx('day',day45_1,45);
    day45_3=intnx('day',day45_2,45);
    day45_4=intnx('day',day45_3,45);
    day45_5=intnx('day',day45_4,45);
    day45_6=intnx('day',day45_5,45);
    day45_7=intnx('day',day45_6,45);
    day45_8=intnx('day',day45_7,45);
run;

Jim

Re: how to add 45day intervals for 1 year

jimbarbour — Thu, 01 Oct 2020 22:37:45 GMT

Results from the above (with formats added for clarity):

Jim

Re: how to add 45day intervals for 1 year

HitmonTran — Thu, 01 Oct 2020 22:42:48 GMT

is there a way to make the program more efficient?

Re: how to add 45day intervals for 1 year

CurtisMackWSIPP — Thu, 01 Oct 2020 22:46:57 GMT

And if you want it as rows and a little less hardcoded.

data x;
    format period1dt date10.;
    period1dt='08OCT2019'd;    
    do until(period1dt > date());
      output;
      period1dt = intnx('day',period1dt,45);
    end;
run;

Re: how to add 45day intervals for 1 year

ballardw — Thu, 01 Oct 2020 22:47:50 GMT

@HitmonTran wrote:
is there a way to make the program more efficient?

Define efficient.

An array and loop counter for the number of times you want to add 45 days would be one way.

But since 45 does not go evenly into a year, 8.11111 (repeats) when the year is 365 days or 8.13333 (repeats) when 366 days, then your definition for "intervals for 1 year" needs some expansion.

Re: how to add 45day intervals for 1 year

CurtisMackWSIPP — Thu, 01 Oct 2020 23:07:43 GMT

Perhaps you are looking for something like this:

  data have;
    startdt='08OCT2019'd; output;
    startdt='08DEC2019'd; output;
    startdt='08DEC2017'd; output;
  run;

  data x;
      set have;
      array period [1:100] ;
      i = 1;
      period1dt = startdt;
      do until(period1dt > date() or i > 100);
        period(i) = period1dt;
        period1dt = intnx('day',period1dt,45);
        i = i + 1;
      end;
  run;

Re: how to add 45day intervals for 1 year

jimbarbour — Thu, 01 Oct 2020 23:13:07 GMT

@HitmonTran,

Do you mean efficient or do you mean flexible?

If you want to make it so there is little hard coding and the program is very flexible, you could use macros like the below example. Here, even the variable names in the output SAS dataset are dynamically determined based on the values of the macro variables set at the top of the program.

Results from the below program:

Jim

%LET	Period_Start	=	'08OCT2019'd;
%LET	Period_End		=	%QSYSFUNC(INTNX(DAY,&Period_Start, 365));
%LET	Increment		=	45;

%MACRO	Calculate_Periods;
	%DO	i	=	1	%TO	999;
		%GLOBAL	Day45_&i;
		%GLOBAL	Nbr_Increments;
		%IF	%SYSFUNC(INTNX(DAY,&Period_Start, %EVAL(&Increment * &i)))	>	&Period_End	%THEN
			%DO;
				%LET	Nbr_Increments	=	%EVAL(&i - 1);
				%LET	i				=	999;
			%END;
		%ELSE
			%DO;
				%LET	Day&Increment._&i		=	%SYSFUNC(INTNX(DAY,&Period_Start, %EVAL(&Increment * &i)));
			%END;
	%END;
%MEND	Calculate_Periods;

%Calculate_Periods;
*%PUT	_USER_;

%MACRO	Generate_SAS_Code;
	%DO	i					=	1	%TO	&Nbr_Increments;
		Day&Increment._&i	=	&&Day&Increment._&i;
	%END;
%MEND	Generate_SAS_Code;

data x;
	FORMAT	Period_Start Day&Increment._1 - Day&Increment._&Nbr_Increments Period_End YYMMDDD10.;
	Period_Start	=	&Period_Start;
	Period_End		=	&Period_End;
	%Generate_SAS_Code;
run;