从输入文件中提取数年的时间间隔[SAS]

Question

我正在使用SAS宏来运行多个月度文件，并提取进一步分析所需的变量。当前，该程序将每个月度文件获取，提取所需的内容并将其作为同一每月文件输出。我还将其设置为将所有内容组合到年度文件中。在大多数情况下，这正常工作：

%let start_date = '31jan2022'd;
%let end_date = '31mar2022'd;
%let num_years = %sysfunc(intck(year,&start_date,&end_date));

data _null_;
     call symput('start_loop',compress(intck('month',&start_date,date())*-1));
     call symput('end_loop',compress(intck('month',&end_date,date())*-1));

%MACRO MONTH_EXTRACT;

%do l=&start_loop. %to &end_loop.;
     data _null_;
          call symput ('monyy',put(intnx('month',date(),&l.,'end'),monyy5.));
          call symput ('end_mon',put(intnx('month',date(),&l.,'end'),date9.));
          call symput ('date',put(intnx('month',date(),&l.,'end'),yymmn.));
     run;

     &let file=libref.monthly_&date.;
     %let file_year=%substr(&date,1,4);

     data file_&monyy. (keep=var1 var2 var3);
     set &file;
     inpt_dt=&date;
     proc append base=files_&file_year force data=file_&monyy.;
%end;
%mend;

当开始日期和结束日期在同一年内包含时，这正常工作。但是，所需的是，当开始日期和结束日期不在同年之内时，每年将在间隔内汇编每年的文件。前任。

    start_date = '31oct2021'd;
    end_date = '31mar2022'd;

这将生成两个称为Files_2021和Files_2022的输出。当我使用当前代码运行它时，它仅生成2021的第一个文件。

我尝试添加：

%IF &num_years > 1 %then %do;
     %LET start_year=input(substr(&start_date,9,-4),4.0);
     start_month=input(&start_date,mmddyy10.);
     %LET start_month=substr(start_month,1,2);
     %LET end_year=input(substr(%end_date,9,-4),4.0);
     end_month=input(&end_date,mmddyy10.);
     %LET end_month=substr(end_month,1,2);
     %DO file_interval=&start_year %to &end_year;
           months=0;
           %if file_interval=&start_year %then %do
                 mstart=&start_month;
           %end;
           %else %do
                 mstart=1;
           %end;
           %if file_interval=&end_year %then %do
                 mstop=&end_month;
           %end;
           %else %do
                mstop = 12;
           %end;
           months=mstop-mstart+1;
    %end;

我知道需要一个PROC附录，但是我不知道该数据是什么要附加的实例。我也知道现在我只在数月数。我如何每年隔离并从每月创建年度输出文件？

Answer 1

与其按年循环并计算本月，不如按月循环并计算年度。您可以通过引用开始日期来增加循环。例如：

开始日期= 01JAN2020

末期日期= 01MAR2020

• ：
• 01JAN20202020202020202020202020202020202020202020202020 ：1个月开始日期01MAR202020202020202020202020202020202020
• 2个月，

我们可以使用intck（） and code> and and and and 和<代码> intnx（）进行计算。

%let start_date = 31oct2021;
%let end_date   = 31mar2022;

%macro month_extract;

    %do i = 0 %to %sysfunc(intck(month, "&start_date."d, "&end_date."d) );

        %let date  = %sysfunc(intnx(month, "&start_date."d, &i.) );
        %let month = %sysfunc(month(&date.), z2.);
        %let year  = %sysfunc(year(&date.) );

        %let file    = libref.monthly_&year.&month.;
        %let outfile = files_&year.;

        %put File: Year: &year. | Month: &month. | File: &file. | Outfile: &outfile.;

    %end;

%mend;
%month_extract;

输出：

File: Year: 2021 | Month: 10 | File: libref.monthly_202110 | Outfile: files_2021
File: Year: 2021 | Month: 11 | File: libref.monthly_202111 | Outfile: files_2021
File: Year: 2021 | Month: 12 | File: libref.monthly_202112 | Outfile: files_2021
File: Year: 2022 | Month: 01 | File: libref.monthly_202201 | Outfile: files_2022
File: Year: 2022 | Month: 02 | File: libref.monthly_202202 | Outfile: files_2022
File: Year: 2022 | Month: 03 | File: libref.monthly_202203 | Outfile: files_2022