求助如何逐一提取数据集中的日期变量作为下一段程序的宏变量&date

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

请教各位高手，如何逐一提取下列数据集a中的日期变量，

1	2009-1-6
2	2009-1-15
3	2009-1-25
4	2009-2-11
5	2009-2-21
6	2009-2-29
7	2009-3-5
8	2009-3-15
9	2009-3-21
10	2009-5-15

       作为下一段程序的宏变量&date，以运算获得一批数据集？

data b;
set c;
if date<=&date;
run;

        非常感谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：日期变量 date 数据集 ATE Data 数据 程序 变量 amp date

实在是看不懂

请问楼上哪里看不懂呢？

call symput("date"||left(_n_),date);
%put  date1=&date1;
%put date2=&date2.



or


proc sql noprint;
select date into:date separated by " " from dataset;
quit;
date=scan(date,1," ");

数据集a中的日期条目数是不确定的，可能上千条，所以最后的数据集数目也可能上千个。

用一个宏来做就是了

请问楼上如何做啊，拜谢了！

%macro result(ds_in=
              ,date_var=
              ,ds_out=);

data temp;
     set &ds_in;
         format &date_var;
run;

%let ds_out=&ds_out;

        proc sql noprint;
             select &date_var into :date_mvar separated by "*"
                   from temp;
        quit;

%let date_num=&sqlobs;
   data
     %do i=1 %to &date_num;
          &ds_out&i
         %end;
         ;
         set temp;
         %do i=1 %to &date_num;
             %let dt_value&i=%scan(&date_mvar,&i,*);
             if &date_var<=&&dt_value&i then output &ds_out&i;
         %end;
run;

%mend;

options mprint;
%result(ds_in=sashelp.citiyr
        ,date_var=date
        ,ds_out=haha )

data raw;
input id rq yymmdd10.;
cards;
1 2009-1-6
2 2009-1-15
3 2009-1-25
4 2009-2-11
5 2009-2-21
6 2009-2-28
7 2009-3-5
8 2009-3-15
9 2009-3-21
10 2009-5-15
;
run;
data rq;
input id rq yymmdd10.;
name=trim('rq')||trim(put(rq,$5.));
cards;
1 2009-1-6
2 2009-1-15
3 2009-1-25
4 2009-2-11
5 2009-2-21
6 2009-2-28
7 2009-3-5
8 2009-3-15
9 2009-3-21
10 2009-5-15
;
run;
data _null_;
   set rq;
   by rq;
   if first.rq then call execute('data '||name||";set raw;where rq<"||rq||";run;");
run;

我想我的程序肯定能满足你的要求，并且很关键的是，我的程序很简洁啊，只有区区五行。而且支持重复日期。

谢谢楼上，但是我一定要取到宏变量&date，因为此变量还要在以下的程序中多次使用的。
请教如何处理？非常感谢！