SAS中yymmd6格式日期循环迭代需求求助

你原代码的核心问题是把yymmd6格式的字符串当作数值进行循环：202012之后数值上是202013，这不是合法的月份格式，自然无法正确过渡到202101。正确的做法是借助SAS日期值来处理月份迭代，再转换为目标格式。

修正后的代码 #

%let startmo=202010 ;
%let endmo=202102;

%macro test;
  /* 将yymmd6格式字符串转为SAS内部日期值 */
  %let start_dt = %sysfunc(inputn(&startmo, yymmd6.));
  %let end_dt = %sysfunc(inputn(&endmo, yymmd6.));
  /* 计算循环总次数：起始到结束的月份数+1（包含首尾） */
  %let total_months = %sysfunc(intck(month, &start_dt, &end_dt)) + 1;

  %do i=1 %to &total_months;
    /* 生成当前迭代的月份日期值 */
    %let current_dt = %sysfunc(intnx(month, &start_dt, &i-1, beg));
    /* 将日期值格式化为yymmd6格式字符串 */
    %let month = %sysfunc(putn(&current_dt, yymmd6.));

    Data ABC_&month;
      Set test&month;
      X=&month ;
    Run; 
  %end;
%mend;
%test;

关键逻辑说明 #

• %sysfunc(inputn(&startmo, yymmd6.))：把字符串形式的月份（如202010）转换为SAS内部存储的日期值（以1960年1月1日为基准的天数），方便后续日期函数操作。
• intck(month, &start_dt, &end_dt)：计算起始日期到结束日期之间的月份间隔，加1是为了包含起始月份本身，确保循环覆盖所有目标月份。
• intnx(month, &start_dt, &i-1, beg)：从起始日期开始，每次向后偏移i-1个月，beg参数确保取每个月的第一天，避免日期偏移导致格式转换出错。
• %sysfunc(putn(&current_dt, yymmd6.))：把SAS日期值重新转换为yymmd6格式的字符串，得到你需要的202010、202101这类命名格式。

这段代码会正确生成ABC_202010、ABC_202011、ABC_202012、ABC_202101、ABC_202102这5个数据集。

内容的提问来源于stack exchange，提问作者Alok Karna