SAS新手求助：基于日期条件重写代码并排查语法错误

原代码 #

原代码用于生成昨日及两周前的日期：

DATA _NULL_;
    date1=put(INTNX('day',&today,-1),DATE11.);
    date2=put(INTNX('day',&today,-15),DATE11.);
    call symput('rpt_dt',date1);
    call symput('rpt_dt2',date2);
RUN;

需求说明 #

需按以下规则重写日期逻辑：

• date1规则：若当前日期≥1日且<16日，设置为上月16日；否则设置为当月1日。
• date2规则：若当前日期≥16日，设置为当月15日；否则设置为上月最后一天。

错误代码问题分析 #

第一段错误代码问题 #

DATA _NULL_;
    if day(today) between 1 and 15 then
        date1 = put(intnx('month', &today, -1, 'e'),DATE11.);
    else
        date1 = put(intnx('month', &today, 0, 'b'),DATE11.);
    if day(date1) = 1 then
        date2 = put(intnx('day', &date1, 15, 'e'),DATE11.);
    else
        date2 = put(intnx('month', &date1, 0, 'e'),DATE11.);
    call symput('rpt_dt',date1);
    call symput('rpt_dt2',date2);
RUN;

1. SAS不支持between...and作为IF条件的语法，需用ge/lt等比较运算符替代
2. date1的逻辑错误：intnx('month', &today, -1, 'e')生成的是上月最后一天，而非需求的上月16日
3. day(date1)调用错误：date1已被put转成字符型，day()函数仅支持数值型日期变量

第二段错误代码问题 #

DATA _NULL_;
    if day(today) ge 1 and day(today) le 15 then
        date1=put(intnx('month',today,-1,'E'), date11.);
        date2=put(intnx('month',today,-1,'L'), date11.);
    else
        date1=put(intnx('month',today,0,'B'), date11.);
        date2=put(intnx('month',today,0,'L'), date11.);
    call symput('rpt_dt',date1);
    call symput('rpt_dt2',date2);
RUN;

1. IF/ELSE分支多语句未用DO...END包裹：只有date1的赋值属于条件分支，date2的赋值会无条件执行，触发语法报错
2. date2逻辑错误：当前日期≥16日时，代码生成的是当月最后一天，而非需求的当月15日

正确代码实现 #

DATA _NULL_;
    /* 获取当前数值型日期：若&today是预定义宏变量则直接引用，否则用today()函数 */
    today_date = &today.;
    /* 或替换为：today_date = today(); */

    /* 处理date1规则 */
    if day(today_date) ge 1 and day(today_date) lt 16 then do;
        /* 上月16日：上月起始日+15天（1日+15天=16日） */
        date1_num = intnx('month', today_date, -1, 'b') + 15;
    end;
    else do;
        /* 当月1日 */
        date1_num = intnx('month', today_date, 0, 'b');
    end;
    date1 = put(date1_num, DATE11.);

    /* 处理date2规则 */
    if day(today_date) ge 16 then do;
        /* 当月15日：当月起始日+14天（1日+14天=15日） */
        date2_num = intnx('month', today_date, 0, 'b') + 14;
    end;
    else do;
        /* 上月最后一天 */
        date2_num = intnx('month', today_date, -1, 'e');
    end;
    date2 = put(date2_num, DATE11.);

    /* 输出宏变量：symputx自动去除空格，比symput更可靠 */
    call symputx('rpt_dt', date1);
    call symputx('rpt_dt2', date2);
RUN;

关键注意点 #

• 先生成数值型日期变量，再用put转成字符型格式，避免日期函数处理字符变量的错误
• 多语句的IF/ELSE分支必须用DO...END包裹，确保代码块属于条件分支
• 日期计算逻辑：通过起始日加天数精准定位目标日期（如上月16日=上月起始+15天）
• 优先使用call symputx替代call symput，自动处理变量首尾空格，宏变量赋值更稳定

内容的提问来源于stack exchange，提问作者budding pro