提前支付时应兑金额的计算 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 提前支付时应兑金额的计算

共有3231人关注过本帖树形打印复制链接主题：提前支付时应兑金额的计算

rgbjwjb

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：651 积分：6608 威望：0 精华：0 注册：2016/12/27 21:05:00

提前支付时应兑金额的计算 发帖心情

Post By：2020/2/6 14:17:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:融资管理系统.foxdb

这个融资管理系统主要实现：1融资时开具收款收据，2、按实际兑付情况计算利息，并打印报表交银行支付3、相关查询功能

我已将“收款明细表”和“兑付明细表”通过“收据号码”关联了；

本息支付的规则：按年支付利息，最后一年本金和利息合并计算；如果未到期（提前支取），就按实际应计本息扣除已支付的利息计算本次应付金额。

我想请教的是:1、提前支取时，本次应付金额的代码如何修改？

2、选择利息计算类型后，相应的窗口不能立即弹出（要先关掉前面的窗口后才能打开）

请指教！谢谢！

rgbjwjb

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：651 积分：6608 威望：0 精华：0 注册：2016/12/27 21:05:00

Post By：2020/2/6 15:56:00 [显示全部帖子]

For Each r1 As Row In Tables("收款明细表").GetCheckedRows

Dim r2 As Row = Tables("兑付明细表").AddNew

r2("收据号码") = r1("收据号码")

r2("兑付日期") = Date.Today

r2("借款日期") = r1("借款日期")

r2("借款金额") = r1("收取金额")

r2("借款年限") = r1("借款年限")

r2("利率") = r1("利率")

r2("债权人") = r1("债权人")

Dim t As TimeSpan

Dim d As Date = r1("借款日期")

t = Date.Today - d

r2("借款天数")=t.TotalDays

r2("应结金额")= r2("借款金额")* r2("利率") /360*t.TotalDays

r1("本息是否兑付") = True

上面代码中的倒数第三行代码（ r2("应结金额")= r2("借款金额")* r2("利率") /360*t.TotalDays ）要做这样的修改：要减去这张收据已付利息，请问您怎么修改？

例如：张先生2015年1月1日，缴集资款15万，利率2%，年限5年，piao号：555555，按年支付利息

2015年12月31日，我们支付给张先生利息3000

2016年12月31日，我们支付给张先生利息3000

2017年6月30日，未到5年，需提前支取，此时应结本息为：150000*2%*2.5-（3000+3000）+150000=151500

谢谢老师！

rgbjwjb

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：651 积分：6608 威望：0 精华：0 注册：2016/12/27 21:05:00

Post By：2020/2/6 17:39:00 [显示全部帖子]

老师你好！你的上述方法只适用于缴款日期为年初（每年的1月1日）的情况，如果缴款日期不是在年初的话就不适用了。

1、跨年度：缴款日期：2019年3月4日，兑付日期：2020年1月9日

2、不跨年度：缴款日期：2019年9月5日，兑付日期：2019年10月22日

我是根据你的建议，建了一个数据表（兑付明细表），用于记录已支付的利息

我思路是：

1、根据“收据号码”计算出到今天为止应兑付的总利息（代码已写，）

2、根据“收据号码”计算已兑付的总利息（这个代码我不会写）

3、两者相减就是本次应兑付的利息

烦请你打开我发给你的项目文件中的“提前支取利息单”窗体中的“确认生成提前支取利息单”这个按钮，对应的代码怎么修改？

谢谢！！

下一主题 >> << 上一主题

主题：提前支付时应兑金额的计算