请教一个循环问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我需要写一段程序，对每个月的每个天进行一次循环，但是每个月的天数有变化，于是出现了下面的问题：
%macro aa;
  %do month=1 %to 12;
     %do day=1 %to 每个月的天数（28、30、31天）;
     ……
     %end;
%end;
%mend ;

%aa;

请教大家，不知如何写这个循环？谢谢了

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：Macro month mont End MEN 程序 如何

建议你确定好年份吧
年份不同天数不一样
用日期的DATDIF函数
在MONTH这层循环里面，定义一个变量对MONTH计数的
MDY确定好日期
DATDIF计算差值作为内循环的TO 终止
这样外循环一次，MONTH加了一个1，然后组件新的日期计算DAYS值

假如是2010年：

%macro aa;

%let year=2010;

  %do month=1 %to 12;
      %if %sysfunc(index(%str( 1 3 5 7 8 10 12 ), %str( &month ))) %then %let days=31;
      %else %if %sysfunc(index(%str( 4 6 9 11 ) , %str( &month ))) %then %let days=30;
       %else %let days=%eval(%sysfunc(mdy(%eval(&month+1),1,&year))-%sysfunc(mdy(&month,1,&year)));

      %put Month &month has &days days!!;

     %do day=1 %to &days;
         
     %end;
%end;
%mend ;

%aa

1. %MACRO aa(YYYY);
   
2.         %do month=1 %to 12 %by 1;
   
3.                 %let ndays= %sysfunc(day(%sysfunc(intnx(month,%sysfunc(mdy(&month,1,&YYYY)),0,END))));
   
4.                 %put MONTH &month Has &ndays Days!!!!;
   
5.                 %do day=1 %to &ndays %by 1;
   
6.                         %put &yyyy.-&month.-&day;
   
7.                 %end;
   
8.         %end;
   
9. %MEND aa;
   
10. %aa(2000);

复制代码

也需要一个年，和pobel的差不多
我的疑问是，这个和直接做年头到年尾的循环有什么区别？在月底有特殊动作还是别的什么的？

interesting