[问答] 从一个表中读取数值的问题。读取利率后做循环。谁能帮解读下这个宏程序。 [推广有奖]

0关注
0粉丝

本科生

56%

还不是VIP/贵宾

威望: 0 级
论坛币: 74 个
通用积分: 0
学术水平: 0 点
热心指数: 0 点
信用等级: 0 点
经验: 1138 点
帖子: 62
精华: 0
在线时间: 100 小时
注册时间: 2013-10-8
最后登录: 2021-3-2

楼主

kermit1209

发表于 2013-12-5 21:15:59 |AI写论文

是否 +2 论坛币

k人参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

%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))