Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 55
Program
Calendar-based program parameters

---

%LET DATE = "&DATEPARM"D;
%LET YEAR = %SYSFUNC(YEAR(&DATE));
%LET M = %SYSFUNC(MONTH(&DATE), Z2.);
%LET D = %SYSFUNC(DAY(&DATE), Z2.);
%LET Y2 = %SYSFUNC(MOD(&YEAR, 100), Z2.); 
%LET MONTH = %SYSFUNC(INTNX(MONTH, &DATE, 0), DATE9.);
%LET NEXTMONTH = %SYSFUNC(INTNX(MONTH, &DATE, 1), DATE9.);
%LET LASTMONTH = %SYSFUNC(INTNX(MONTH, &DATE, -1), DATE9.);
%LET MONTHDAYS = %SYSEVALF("&NEXTMONTH"D - "&MONTH"D);
%LET NEXTYEAR = %EVAL(&YEAR + 1);
%LET LASTYEAR = %EVAL(&YEAR - 1);
%LET YEARDAYS = %SYSEVALF("01JAN&NEXTYEAR"D - "01JAN&YEAR"D);