请问高手在MACRO中日期如何转数字？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

下面程序中，如何让startDate和stopDate变成数字，以便循环？谢谢了！

%macro Main;
%let startDate='15Jul2000'd;
%let stopDate='19Jul2000'd;
%let numOfDays=120;
%do date=?startDate %to ?stopDate;
  proc sql;
   create table nb.date_line as
    select *
    from nb.raw_date_line   
    where "&date"d-&numOfDays<date<="&date"d;
  quit;
%end;
%mend;
%Main

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Macro Mac CRO acr proc sql

在循环开始用 call symput定义。一步到位也可以不过这样可读性更高和更易于修改

%macro Main;
%let startDate='15Jul2000'd;
%let stopDate='19Jul2000'd;

data _null_;
call symput('start','15Jul2000'd);
call symput('end','19Jul2000'd);
run;


%let numOfDays=120;
%do date= &start. %to &end.;
  proc sql;
   create table nb.date_line as
    select *
    from nb.raw_date_line   
    where "&date"d-&numOfDays<date<="&date"d;
  quit;
%end;
%mend;
%Main

想一步到位试试下面这样
%macro a;

%do i= %sysfunc(putn("15Jul2000"d,best12.)) %to %sysfunc(putn("19Jul2000"d,best12.));
%put %sysfunc(putn(&i.,date9.));
%end;

%mend;

%a;
但是你用这种方式写的代码，别人维护或者读以来会不那么易懂

banishurface 发表于 2019-7-3 23:19
想一步到位试试下面这样
%macro a;

感谢高手回复。
但是，第一个程序，两个变量需要分别修改2次。
第二个程序，两个变量没有独立出来，以后修改还要去先定位。

请问有没有办法像我主贴那样，只需要在独立的%let语句里面修改一次？
谢谢！

/*方法一*/
%let start=15Jul2000;
%let stop=19Jul2000;
%macro Main;

%do i= %sysfunc(putn("&start."d,best12.)) %to %sysfunc(putn("&stop."d,best12.));
%put %sysfunc(putn(&i.,date9.));
%end;

%mend;
%Main



/*方法二*/
%macro a(start=,end=);

%do i= %sysfunc(putn("&start."d,best12.)) %to %sysfunc(putn("&end."d,best12.));
%put %sysfunc(putn(&i.,date9.));
%end;

%mend;

%a(start=15Jul2000,end=19Jul2000);

非常感谢楼上的高手！

%macro Main;
%let startDate='15Jul2000'd;
%let stopDate='19Jul2000'd;
%let numOfDays=120;
%do date=%sysfunc(putn(&startDate,best5.)) %to %sysfunc(putn(&stopDate,best5.));
  proc sql;
   create table nb.date_line as
    select *
    from nb.raw_date_line   
    where &date-&numOfDays<date<=&date;
  quit;
%end;
%mend;
%Main