关于资产利息的计算

[titan_fsw]

各位大神，有个项目需要计算资产的利息，两个数据库表如下：

资产本金流水表：
资产编号 发生金额 发生日期
XYZ123 200,000,000.00 2014-6-28
XYZ123 -50,000,000.00 2014-9-30
XYZ123 -40,000,000.00 2014-12-1

利率表：
资产编号 利率 生效日期
XYZ123 8.55% 2014-7-15
XYZ123 8.25% 2014-9-15
XYZ123 8.15% 2014-12-31

资产本金流水表中发生额为负数表示本金减少。

现在想计算资产XYZ123从起息日2014-6-28至2015-1-31所应获得的利息，利息计算公式如下：
利息=本金*利率/360*天数

请教各位大神有没有什么公式或者算法能快捷的算出来，我原本的算法是这样的：

lx=0
for i=1 to datediff("d",起息日,'2015-1-31')
从资产表取dateadd("d",i,起息日)的资产本金
从利率表取dateadd("d",i,起息日)的匹配利率
dateadd("d",i,起息日)当天的利息=资产本金*匹配利率/360
lx=lx+dateadd("d",i,起息日)当天的利息
next

但是这样机器需要耗费的资源会很大，相当于循环里面每一天需要读取两次数据库表。
跪求那位大神能给出一个资源耗费较少的算法，谢啦！

[titan_fsw]

呃……笔误，笔误！利率表中的第一行生效日期应该是2014-6-28，即资产起息时的利率