作者：绿色风
分类：
时间：2022-08-18
浏览：72
楼主
omnw |
适用对象：本函数适用于银行财务和信贷人员以及有住房贷款的人士使用！
功能：可以统计在整个还款期内，连续某几期贷款还息的累计数！
不足：贷款当月和最后一个利息计算不准确，存在当月多计算利息，最后一个月少计算利息的情况！
- Function Bzh_等额本息还款利息统计(借款日期 As Date, 到期日期 As Date, 统计开始日期 As Date, 统计结束日期 As Date, 利率 As Double, 本金 As Double) As Double
- Dim Per As Integer
- Dim nPer As Integer
- Dim Pers As Integer
- Dim StartPer As Integer
- Dim i As Integer
- If 统计开始日期 > 到期日期 Or 统计结束日期 < 借款日期 Then
- Else
- nPer = (Year(到期日期) - Year(借款日期)) * 12 + (Month(到期日期) - Month(借款日期))
- 'nPer代表还款总期数
- If 统计开始日期 < 借款日期 Then
- StartPer = 1
- 统计开始日期 = 借款日期
- End If
- If 统计结束日期 > 到期日期 Then
- 统计结束日期 = 到期日期
- End If
- Pers = (Year(统计结束日期) - Year(统计开始日期)) * 12 + (Month(统计结束日期) - Month(统计开始日期)) + 1
- 'Pers代表统计的还款期数
- StartPer = (Year(统计开始日期) - Year(借款日期)) * 12 + (Month(统计开始日期) - Month(借款日期)) + 1
-
- If Pers + StartPer > nPer Then
- Pers = nPer - StartPer
- End If
- 'StartPer代表统计开始时间是整个还款期间的第几期
- For i = 0 To Pers - 1
- Bzh_等额本息还款利息统计 = Bzh_等额本息还款利息统计 + VBA.IPmt(利率 / 12, i + StartPer, nPer, 本金 * -1, 0, 0)
- Next i
- End If
- End Function
不足之处，请大家指正！ |
2楼
rongjun |
学习卞版的代码 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一