主题：计算资金占用成本

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:规则说明.txt

有一个很复杂的规则，想请教各位，我想做一个资金占用成本计算器  ，计算规则和示例文件都在附件中，还想请教各位有经验的前辈们，给点思路和方向！万分感激！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:资金占用成本计算器.zip

首先得到表数据【计算资金占用】，然后再计算。不就是很简单的事？循环每一行，根据规则，计算这个式子即可

 

【143,369.66 * （-60）* 利率 + 215,054.5 * 30 * 利率 + 215,054.5  * 210  *利率】

 

Dim id As Integer = 1
Dim ll As Double = 0.002 '利率
Dim dt As DataTable = DataTables("计算资金占用")
Dim sum As Double = 0
For Each dr As DataRow In dt.Select("付款编号 = '" & id & "'", "付款日期")
    sum = sum + dr("付款金额") * dr("占用天数") * ll
Next
msgbox(sum)