- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 计算资金占用成本 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116572)
-- 发布时间：2018/3/27 10:12:00
-- 计算资金占用成本
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:规则说明.txt |
有一个很复杂的规则，想请教各位，我想做一个资金占用成本计算器 ，计算规则和示例文件都在附件中，还想请教各位有经验的前辈们，给点思路和方向！万分感激！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:资金占用成本计算器.zip |
-- 发布时间：2018/3/27 11:02:00
--
首先得到表数据【计算资金占用】，然后再计算。不就是很简单的事？循环每一行，根据规则，计算这个式子即可
【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)