一个宏循环问题，折腾了一上午，请教。。

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. %MACRO T(x);
   
2.         %put I am &x;
   
3. %MEND T;
   
4. 
   
5. %macro cycle(year,month);
   
6. data temp;
   
7. format a;
   
8. %let n=&month;
   
9. %do %while(&n<13);
   
10.         %T(&n);
    
11.         output;
    
12.         %let n=%eval(&n+1);
    
13. %end;
    
14. run;
    
15. %mend cycle;
    
16. 
    
17. %cycle(2010,01);

复制代码

输出结果：
I am 01
I am 2
I am 3
I am 4
I am 5
I am 6
I am 7
I am 8
I am 9
I am 10
I am 11
I am 12

我想让输出结果变为：
I am 01
I am 02
I am 03
I am 04
I am 05
I am 06
I am 07
I am 08
I am 09
I am 10
I am 11
I am 12
请问该如何处理，折腾了一上午，没搞出来，求请教。。
%cycle参数的格式是定死的(YYYY,MM)

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：宏循环 format Macro month cycle

没有人会吗?

1. /*options symbolgen;*/
   
2. %MACRO T(x);
   
3.         %put I am &x;
   
4. %MEND T;
   
5. %macro cycle(year,month);
   
6. data temp;
   
7. %let n=&month;
   
8. %do %while(&n<13);
   
9. %let t=%sysfunc(putn(%sysfunc(cat(&n,&year)),MMYYN.));
   
10. %let y=%sysfunc(substr(&t.,1,2));
    
11.         %T(&y);
    
12.         output;
    
13.         %let n=%eval(&n+1);
    
14. %end;
    
15. run;
    
16. %mend cycle;
    
17. %cycle(2010,01);

复制代码

得到的结果是：
I am 11
I am 04
I am 08
I am 01
I am 05
I am 10
I am 02
I am 07
I am 12
I am 04
I am 09
I am 01

很明显上述结果不正确，问题在于当Cats函数与%sysfunc结合时，得到的时间错乱了。何故？请高手指教！

1. %MACRO T(x);      
   
2.         %put I am %sysfunc(putn(&x,z2.));
   
3. %MEND T;
   
4. 
   
5. %macro cycle(year,month);
   
6. data temp;
   
7. format a;
   
8. %let n=&month;
   
9. %do %while(&n<13);
   
10.         %T(&n);
    
11.         output;
    
12.         %let n=%eval(&n+1);
    
13. %end;
    
14. run;
    
15. %mend cycle;
    
16. 
    
17. %cycle(2010,01);

复制代码

log file:

445  %MACRO T(x);
446          %put I am %sysfunc(putn(&x,z2.));
447  %MEND T;
448
449  %macro cycle(year,month);
450  data temp;
451  format a;
452  %let n=&month;
453  %do %while(&n<13);
454          %T(&n);
455          output;
456          %let n=%eval(&n+1);
457  %end;
458  run;
459  %mend cycle;
460
461  %cycle(2010,01);
I am 01
I am 02
I am 03
I am 04
I am 05
I am 06
I am 07
I am 08
I am 09
I am 10
I am 11
I am 12

NOTE: Variable a is uninitialized.
NOTE: The data set WORK.TEMP has 12 observations and 0 variables.
NOTE: DATA statement used (Total process time):
      real time           0.67 seconds
      cpu time            0.06 seconds

no6000 发表于 2011-11-18 17:33
得到的结果是：
I am 11
I am 04

当n=1时，cat的结果是12010,这个数字表示的日期转成MMYYN.格式是111992，所以 结果是 I am 11
当n=2时，cat的结果是22010,这个数字表示的日期转成MMYYN.格式是042020，所以 结果是 I am 04
其余类似。你可以试试。

1. data _null_;
   
2. d1=12010;
   
3. d2=22010;
   
4. f1=put(d1,mmyyn.);
   
5. f2=put(d2,mmyyn.);
   
6. put d1 f1 /d2 f2 ;
   
7. run;

复制代码

log file:

516  data _null_;
517  d1=12010;
518  d2=22010;
519  f1=put(d1,mmyyn.);
520  f2=put(d2,mmyyn.);
521  put d1 f1 /d2 f2 ;
522  run;

12010 111992
22010 042020

webgu 发表于 2011-11-18 18:48
log file:

445  %MACRO T(x);

我没表述全，被调用的宏
%MACRO T(x);
        %put I am &x;
%MEND T;
我是不想改变的。真正目的是想让宏变量%n本质上变为01,02,03,04......12。

而非输出的时候用 z2.做限制。。

1. %let year=2004;
   
2. data _null_;
   
3.         do i=1 to 12 by 1;
   
4.                 str=put(mdy(i,1,&year),yymmn6.);
   
5.                 call symputx(compress("N"||"_"||i),substr(str,5,2));
   
6.                 put str;
   
7.         end;
   
8. run;
   
9. %put &N_1 &N_12;

复制代码

我不是太理解楼主代码的那个data步的意义
但是仅需要提取月份的z2.格式的字符给宏变量，出于宏本身就是字符串的考虑，我一般是直接做成字符变量再赋给宏
当然对于时间的遍历与提取又是另一个话题，其中难免使用intnx和intck函数，这里先不考虑......

lprince233 发表于 2011-11-20 19:38
我没表述全，被调用的宏
%MACRO T(x);
        %put I am &x;

如果不想对Macro T(x)做改变，可以在调用之前就做格式转换。

1. %MACRO T(x);      
   
2.         %put I am &x;
   
3. %MEND T;
   
4. 
   
5. %macro cycle(year,month);
   
6. data temp;
   
7. format a;
   
8. %let n=&month;
   
9. %do %while(&n<13);
   
10.         %T(%sysfunc(putn(&n,z2.)));
    
11.         output;
    
12.         %let n=%eval(&n+1);
    
13. %end;
    
14. run;
    
15. %mend cycle;
    
16. 
    
17. %cycle(2010,01);

复制代码

tj0412ymy 发表于 2011-11-21 11:43
如果不想对Macro T(x)做改变，可以在调用之前就做格式转换。

是的，按楼主的意思，只需稍加修改就成。

soporaeternus 发表于 2011-11-21 09:37
我不是太理解楼主代码的那个data步的意义
但是仅需要提取月份的z2.格式的字符给宏变量，出于宏本身就是字符 ...

这个CODE很简洁。 , 楼主里的YEAR参数其实也没用上。