请教:怎样计算IRR?

shiyiming

有一个计算IRR 的问题, 请大侠帮忙.

先介绍一下背景:

IRR 是internal rate of return 的缩写.

SAS 的financial function 里有一个函数INTIRR或IRR可以用于计算.
以银行计算贷款利率为例
rate=
intirr(1,-20000,2200,2000,2000,2000,2000,2000,2000,2000,2000,2100);

这个式子表示总共贷出20000元,客户分10期偿还. 这10期的具体还贷数额是:
第一个月还2000+200, 200是开户费.
第二个月还2000,
第三个月还2000,
......
第十个月,也就是最后一期还2000+100,100是销户费

现在我手上有这样一批数据,

[code:cb459]key            month_pay   loan_ammount   term     doc_fee  clsoe_fee       
968213896          252.5            7900                    36          72         63.45
956791165          385.39            14000                    48                 72         63.45
333449120  1039.81            52066                   61                 72         63.45[/code:cb459]

key是客户编号
month_pay是每月应付金额
loan_ammount是贷款总额
term是付款周期
doc_fee是开户费
close_fee是销户费

按照上面的公式,好象不难算出rate.
想了半天, 感觉应该用SAS macro. 可怎么做呢?
不知各位有没有好办法.


谢谢!