SAS EG:从Today()中提取月份以用于IF语句

%let current_month = %sysfunc(month(%sysfunc(today())));

data _null_;
    if &current_month. = 1 then do;
        put "It's January!";
    end;
    else if &current_month. = 2 then do;
        put "It's February!";
    end;
    else if &current_month. = 3 then do;
        put "It's March!";
    end;
    else do;
        put "It's some other month.";
    end;
run;

%let current_month = %sysfunc(month(%sysfunc(today())));
%if %sysfunc(error()) ne 0 %then %do;
    %put ERROR: Failed to extract month from today's date.;
%end;
%else %do;
    data _null_;
        if &current_month. = 1 then do;
            put "It's January!";
        end;
        else if &current_month. = 2 then do;
            put "It's February!";
        end;
        else if &current_month. = 3 then do;
            put "It's March!";
        end;
        else do;
            put "It's some other month.";
        end;
    run;
%end;