用SAS算算房贷

shiyiming

[code:9lb8hjre]/******************
T_price      房屋总价
L_year       贷款年限
P_price      公积金贷款金额
P_rate       公积金贷款年利率
C_price      商业贷款金额
C_rate       商业贷款年利率
C_discount   商业贷款利率折扣
*******************/
%let T_price=500000;
%let L_year=20;
%let P_price=250000;
%let P_rate=0.045;
%let C_price=100000;
%let C_rate=0.0655;
%let C_discount=0.85;
/**************************
等额本息计算公式
每月还款金额=（贷款本金*月利率*（1+月利率）**还款月数）/（（1+月利率）**还款月数-1）
****************************/
data fdjsq;
   TPM_price=(&P_price*&P_rate/12*((1+&P_rate/12)**(&L_year*12))) /((1+&P_rate/12)**(&L_year*12)-1) ;
   TCM_price=(&C_price*&C_rate/12*&C_discount*((1+&C_rate/12*&C_discount)**(&L_year*12))) /((1+&C_rate/12*&C_discount)**(&L_year*12)-1) ;
   TM_price= TPM_price+ TCM_price;
run;
title '等额本息';
proc print label;
label  TPM_price='每月公积金还款金额';
label  TCM_price='每月商贷还款金额';
label  TM_price='每月还贷总金额';
run;
/***************************
等额本金计算公式
每月还款金额=（贷款本金/还款月数）（本金-已归还本金累计额）*每月利率
*****************************/
data fdjsq;
   do i = 1 to &L_year*12;
   TPM_price=&P_price/(&L_year*12)+(&P_price-&P_price/(&L_year*12)*i)*(&P_rate/12) ;
   TCM_price=&C_price/(&L_year*12)+(&C_price-&C_price/(&L_year*12)*i)*(&C_rate*&C_discount/12) ;
   TM_price = TPM_price + TCM_price;
   output;
   end;
run;
title '等额本金';
proc print label;
label  TPM_price='每月公积金还款金额';
label  TCM_price='每月商贷还款金额';
label  TM_price='每月还贷总金额';
run;
title;[/code:9lb8hjre]

shiyiming

<!-- s8) --><img src="{SMILIES_PATH}/icon_cool.gif" alt="8)" title="Cool" /><!-- s8) -->