%macro IntCheck(IDate1 = '01feb2001'd,
IDate2 = today(),
IntCheck = 01/01,
YourMacroVarName = NumberOfIntvls);
%global &YourMacroVarName;
data _null_;
length
int1
int2 $2;
int1 = scan("&intcheck",1,'/');
int2 = scan("&intcheck",1,'/');
do Ix= &IDate1 to &IDate2;
Iy = scan(put(Ix,mmddyy10.),1,'/');
Iz = scan(put(Ix,mmddyy10.),2,'/');
if trim(Iy) = trim(int1) and
trim(Iz) = trim(int2) then
ctr+1;
end;
call symput("&YourMacroVarName",trim(left(put(ctr,8.))) );
run;
%mend IntCheck;