SAS中文论坛

标题: 用SAS算算房贷 [打印本页]

作者: shiyiming 时间: 2012-12-11 15:06
标题: 用SAS算算房贷
[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 时间: 2013-5-14 15:31
标题: Re: 用SAS算算房贷
<img src="{SMILIES_PATH}/icon_cool.gif" alt="8)" title="Cool" />

欢迎光临 SAS中文论坛 (http://www.mysas.net/forum/)