1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| %let k = 1 ;
DATE = date() ;
MOIS = month(DATE) ;
output ;
%if &k = 1 %then %do ;
DATE = DATE + (7*13);
MOIS2 = month(DATE) ;
if MOIS2 ne MOIS then do ;
MOIS = month(DATE) ;
%let j = (&k+1) ;
%let l = %eval(&j);
%put l;
N=N+1 ;
output ;
end;
%end;
%else %if &k = 2 %then %do;
DATE = DATE + (7*26);
MOIS2 = month(DATE) ;
if MOIS2 ne MOIS then do ;
MOIS = month(DATE) ;
%let j = (&k+1) ;
%let l = %eval(&j);
output;
end;
%end;
%else %do ;
%do &k = 3 %to 30 ;
DATE = DATE + 365 ;
MOIS2 = month(DATE) ;
if MOIS2 ne MOIS then do ;
MOIS = month(DATE) ;
%let j = (&k+1) ;
%let l = %eval(&j);
output ;
end ;
%end ;
%end; |
Partager