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


  共有3429人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
rgbjwjb
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:651 积分:6614 威望: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 积分:6614 威望: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
Next

上面代码中的倒数第三行代码( 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 积分:6614 威望: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、两者相减就是本次应兑付的利息
烦请你打开我发给你的项目文件中的“提前支取利息单窗体中的“确认生成提前支取利息单”这个按钮,对应的代码怎么修改?
谢谢!!



 回到顶部