Online File
Rick Aster: Professional SAS Programming Shortcuts: Contents
%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);