1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
%let AR_DATE= 201407;
%let AR_Mois=%substr(&AR_DATE.,5);
%let AR_AN=%substr(&AR_DATE.,1,4);
DATA _NULL_;
if %eval(&AR_mois.-1)=0 then do;
CALL SYMPUT('AR_mois1','12');
CALL SYMPUT('AR_AN1',"%eval(&AR_AN.-1)");
END;
else if %eval(&AR_mois.-11)<0 then do;
CALL SYMPUT ('AR_AN1',"&AR_AN.");
CALL SYMPUT ('AR_mois1',"0%eval(&AR_mois.-1)");
END;
else do;
CALL SYMPUT ('AR_AN1',"&AR_AN.");
CALL SYMPUT ('AR_mois1',"%eval(&AR_mois.-1)");
END;
RUN;
DATA _NULL_;
CALL SYMPUT('DATE9',put(intnx("month",mdy(&AR_Mois.,1,&&AR_AN.),0,"end"),date9.));
CALL SYMPUT('DATE9_1',put(intnx("month",mdy(&AR_Mois.,1,&&AR_AN.),-1,"end"),date9.));
RUN; |
Partager