Make macros out of dates

[Queryman]

I need to make two global macros
Svcdte1 should be current_date minus 189 days
Svcdte2 should be current_date
and both macros need to be in this format '2002-11-25'
Thanks!

QueryMan

 

[MatthiasB]

Hi Queryman,

date minus 189 days sounds weird - homework?

Cheers,
Matthias

 

[Queryman]

No, not homework, haven't had to do that in about 20 years...I need to get this done to automate a piece of code at work where we select claims for a range of six months plus a week, so it's 182 days plus 7 days to total 189.

QueryMan

 

[MatthiasB]

Hi again,

let's see if I get that right:

data _null_;
   call symput ("SVCDTE1", put (intnx('day', today(), -189), yymmdd10.));
   call symput ("SVCDTE2", put (today(), yymmdd10.));
run;
%put &SVCDTE1.;
%put &SVCDTE2.;

Output looks like this:

%put &SVCDTE1.;
2002-05-22
%put &SVCDTE2.;
2002-11-27

Cheers,
Matthias

 

[Queryman]

Thanks, that worked!

QueryMan

 

[Queryman]

Matthias,
If I need the macro to resolve to '2002-05-22' instead of 2002-05-22, what change would I need to make.
Thanks!

QueryMan

 

[MatthiasB]

Hi,

just surround by single quotes on the assignment of the values:

   call symput ("SVCDTE1", "'" || put (intnx('day', today(), -189), yymmdd10.) || "'");
   call symput ("SVCDTE2", "'" || put (today(), yymmdd10.) || "'");

Cheers,
Matthias

 

[Queryman]

I have a follow up question...
My boss wants this changed to count 182 days back from the last Saturday. So if today is Friday or Sat, this should count back 182 days from last Sat, but if today is anytime after midnight Sat (Sun Morning etc..) it should count back 182 days from this Saturday.

QueryMan

 

[MatthiasB]

Hi Queryman,

your boss giving me a hard time, man ;-)

Okay, SAS has a Weekday() function, Sunday=1, .. Saturday=7. Should then look like - no guarantee, you have to play with it (181 or 182?), I am off heading home, still checking tek-tips over the weekend, I stop blurping, here's the code:

data _null_;
   td = today();
   call symput ("SVCDTE1", "'" || put (intnx('day', td, -(181+weekday(td))), yymmdd10.) || "'");
   call symput ("SVCDTE2", "'" || put (td, yymmdd10.) || "'");
run;
%put &SVCDTE1;
%put &SVCDTE2;

Output:

80   %put &SVCDTE1;
'2002-05-26'
81   %put &SVCDTE2;
'2002-11-29'

What's the hourly rate at your company? (just kidding)

Have a great weekend!
Matthias

 

[MatthiasB]

Hi Queryman,

am home now, looked into it again, I guess the calculation is okay. You just have to carefully check if the result should be a Friday or a Saturday - for that you need to adjust the 181 factor accordingly.

Nice weekend,
Matthias

 

[Queryman]

Hi Matthias,
Thanks for your response. Maybe I wasn't clear enough, SVCDATE1 needs to be 182 days from the previous saturday, so by default, svcdate2 will be that saturday and svcdate1 will be 182 days before that.

Example in this case since today is Friday, svcdate2 will be '2002-11-23' and svcdate1 will be '2002-05-25' (182 days)

QueryMan

 

[Queryman]

Matthias,
I came up with this, can you think of a way to do it any easier with less code?
data _null_;
if weekday(1)then wk = weekday(1);
if weekday(2)then wk = weekday(2);
if weekday(3)then wk = weekday(3);
if weekday(4)then wk = weekday(4);
if weekday(5)then wk = weekday(5);
if weekday(6)then wk = weekday(6);
if weekday(7)then wk = weekday(0);
td = today();
call symput ("SVCDTE2", "'" || put (intnx('day', td,
-(weekday(td))), yymmdd10.) || "'"
call symput ("SVCDTE1", "'" || put (intnx('day', td,
-(182+weekday(td))), yymmdd10.) || "'"
run;
%put &SVCDTE1;
%put &SVCDTE2;

QueryMan

 

[Queryman]

Matthias,
Please ignore my last post, it was incorrect!

QueryMan

 

[Queryman]

This seems to work
data _null_;
td = today();
call symput ("SVCDATE1", "'" || put (intnx('day', td,-(182+weekday(td))), yymmdd10.) || "'"
call symput ("SVCDATE2", "'" || put (intnx('day', td,-(weekday(td))), yymmdd10.) || "'"run;
%put &SVCDTE1;
%put &SVCDTE2;

QueryMan