%macro call(type,set_date,money,take_date);
data final;
format set_date yymmdd10. dump_date yymmdd10.;
type=&type;
set_date=&set_date;
money=&money;
days=datdif(&set_date,&take_date,'act/act');
set rate;
if type=1 then do;
  do time=1 to days;
   dump_date=set_date+1;
   if time<days then do;
     if change_time<=set_date<end_time then do;
       rate=one_day;
     end;   
     day=datdif(set_date,dump_date,'act/act');
     interest=money*rate/(100*360)*day;
     money=money+interest;   
     set_date=set_date+1;
     output;
   end;
   else do;
     if change_time<=set_date<end_time then do;
       rate=demand;
     end;
     interest=money*rate/(100*360)*datdif(set_date,&take_date,'act/act');
     money=money+interest;
     set_date=&take_date;
     output;
   end;
end;
end;
run;
data final;
set final;
  if missing(rate) then delete;
run;
%mend call;
%call(1,mdy(11,02,2010),50000,mdy(01,29,2011))