银行等额本息贷款本金、月供数、利率、期数计算源码

ssshill

银行等额本息贷款本金、月供数、利率、期数计算源码，请帮忙测试：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

调试输出 (“月利率为：”, 等额本息求利率 (10000, 10, 1025.38, ), “年利率为”, 等额本息求利率 (10000, 10, 1025.38, ) × 12)
调试输出 (“还款期数：”, 等额本息求期数 (10000, 0.004583, 1025.38))
调试输出 (“求本金数：”, 等额本息求本金 (10, 0.004583, 1025.833))
调试输出 (“月供：”, 等额本息求月供 (10000, 10, 0.004583))

子程序名	返回值类型	公开	备 注
等额本息求利率	小数型		根据贷款本金、还款月数、等额本息求月利率
参数名	类 型	参考	可空	数组	备 注
本金	整数型				整数
期数	整数型				按月计
等额本息数	小数型				月固定等额数
误差值	小数型				误差值默认为0.02，取值范围0.001-0.09

变量名	类 型	静态	数组	备 注
当月支出利息	小数型		0
当月支出本金	小数型		0
月初本金	小数型		0
x	整数型
月利率	小数型
月末本金	小数型
y	整数型
检查次数	整数型

如果真 (误差值 ＞ 0.09 或 误差值 ＜ 0.001)  ' 限定本金测试的值误差范围
误差值 ＝ 0.02
重定义数组 (当月支出利息, 假, 期数)
重定义数组 (当月支出本金, 假, 期数)
重定义数组 (月初本金, 假, 期数)
月利率 ＝ 等额本息数 ÷ 本金  ' 从最高100%利息倒推。等额本息还款通常是前期支出利息多本金少，后期支出利息少本金多。
月初本金 [1] ＝ 本金  ' 给出初始值
计次循环首 (期数, x)
如果真 (x ＞ 1)
月初本金 [x] ＝ 月末本金
当月支出利息 [x] ＝ 月初本金 [x] × 月利率
当月支出本金 [x] ＝ 等额本息数 － 当月支出利息 [x]
月末本金 ＝ 月初本金 [x] － 当月支出本金 [x]
计次循环尾 ()
如果真 (取绝对值 (月末本金) ≤ 误差值)
返回 (月利率)

检查次数 ＝ 取整 (月利率 ÷ 1e-006)
月利率 ＝ 月利率 － 1e-006
计次循环首 (检查次数, y)
月初本金 [1] ＝ 本金  ' 给出初始值
计次循环首 (期数, x)
如果真 (x ＞ 1)
月初本金 [x] ＝ 月末本金
当月支出利息 [x] ＝ 月初本金 [x] × 月利率
当月支出本金 [x] ＝ 等额本息数 － 当月支出利息 [x]
月末本金 ＝ 月初本金 [x] － 当月支出本金 [x]
计次循环尾 ()
如果真 (取绝对值 (月末本金) ≤ 误差值)
跳出循环 ()
月利率 ＝ 月利率 － 1e-006
计次循环尾 ()
返回 (月利率)

子程序名	返回值类型	公开	备 注
等额本息求期数	小数型		公式计算计算出来
参数名	类 型	参考	可空	数组	备 注
本金	整数型
月利率	小数型
等额本息数	小数型

变量名	类 型	静态	数组	备 注
期数	小数型

期数 ＝ 求自然对数 (等额本息数 ÷ (等额本息数 － 本金 × 月利率)) × 100 ÷ (求自然对数 (1 ＋ 月利率) × 100)
期数 ＝ 四舍五入 (期数, 2)
返回 (期数)

子程序名	返回值类型	公开	备 注
等额本息求本金	小数型
参数名	类 型	参考	可空	数组	备 注
期数	整数型
月利率	小数型
等额本息数	小数型

变量名	类 型	静态	数组	备 注
本金	小数型
位数	整数型

本金 ＝ 等额本息数 �� (1 － 1 ÷ 求次方 (1 ＋ 月利率, 期数)) ÷ 月利率
位数 ＝ ��� (取文本长度 (到文本 (取整 (本金))) － 3)
本金 ＝ 四舍五入 (本金, 位数)  ' 四舍五入到位数，否则就会万分之4的误差
返回 (本金)

子程序名	返回值类型	公开	备 注
等额本息求月供	小数型
参数名	类 型	参考	可空	数组	备 注
本金	整数型
期数	整数型
月利率	小数型

变量名	类 型	静态	数组	备 注
月付额	小数型

月付额 ＝ 本金 × 月利率 �� (1 ＋ 1 ÷ (求次方 (1 ＋ 月利率, 期数) － 1))
月付额 ＝ 四舍五入 (月付额, 2)
返回 (月付额)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 调试输出 (“月利率为：”, 等额本息求利率 (10000, 10, 1025.38, ), “年利率为”, 等额本息求利率 (10000, 10, 1025.38, ) × 12)<br /> 调试输出 (“还款期数：”, 等额本息求期数 (10000, 0.004583, 1025.38))<br /> 调试输出 (“求本金数：”, 等额本息求本金 (10, 0.004583, 1025.833))<br /> 调试输出 (“月供：”, 等额本息求月供 (10000, 10, 0.004583))<br /> <br /> .子程序 等额本息求利率, 小数型, , 根据贷款本金、还款月数、等额本息求月利率<br /> .参数 本金, 整数型, , 整数<br /> .参数 期数, 整数型, , 按月计<br /> .参数 等额本息数, 小数型, , 月固定等额数<br /> .参数 误差值, 小数型, 可空, 误差值默认为0.02，取值范围0.001-0.09<br /> .局部变量 当月支出利息, 小数型, , "0"<br /> .局部变量 当月支出本金, 小数型, , "0"<br /> .局部变量 月初本金, 小数型, , "0"<br /> .局部变量 x, 整数型<br /> .局部变量 月利率, 小数型<br /> .局部变量 月末本金, 小数型<br /> .局部变量 y, 整数型<br /> .局部变量 检查次数, 整数型<br /> <br /> .如果真 (误差值 ＞ 0.09 或 误差值 ＜ 0.001)  ' 限定本金测试的值误差范围<br />     误差值 ＝ 0.02<br /> .如果真结束<br /> 重定义数组 (当月支出利息, 假, 期数)<br /> 重定义数组 (当月支出本金, 假, 期数)<br /> 重定义数组 (月初本金, 假, 期数)<br /> 月利率 ＝ 等额本息数 ÷ 本金  ' 从最高100%利息倒推。等额本息还款通常是前期支出利息多本金少，后期支出利息少本金多。<br /> 月初本金 [1] ＝ 本金  ' 给出初始值<br /> .计次循环首 (期数, x)<br />     .如果真 (x ＞ 1)<br />         月初本金 [x] ＝ 月末本金<br />     .如果真结束<br />     当月支出利息 [x] ＝ 月初本金 [x] × 月利率<br />     当月支出本金 [x] ＝ 等额本息数 － 当月支出利息 [x]<br />     月末本金 ＝ 月初本金 [x] － 当月支出本金 [x]<br /> .计次循环尾 ()<br /> .如果真 (取绝对值 (月末本金) ≤ 误差值)<br />     返回 (月利率)<br /> .如果真结束<br /> <br /> 检查次数 ＝ 取整 (月利率 ÷ 1e-006)<br /> 月利率 ＝ 月利率 － 1e-006<br /> .计次循环首 (检查次数, y)<br />     月初本金 [1] ＝ 本金  ' 给出初始值<br />     .计次循环首 (期数, x)<br />         .如果真 (x ＞ 1)<br />             月初本金 [x] ＝ 月末本金<br />         .如果真结束<br />         当月支出利息 [x] ＝ 月初本金 [x] × 月利率<br />         当月支出本金 [x] ＝ 等额本息数 － 当月支出利息 [x]<br />         月末本金 ＝ 月初本金 [x] － 当月支出本金 [x]<br />     .计次循环尾 ()<br />     .如果真 (取绝对值 (月末本金) ≤ 误差值)<br />         跳出循环 ()<br />     .如果真结束<br />     月利率 ＝ 月利率 － 1e-006<br /> .计次循环尾 ()<br /> 返回 (月利率)<br /> <br /> .子程序 等额本息求期数, 小数型, , 公式计算计算出来<br /> .参数 本金, 整数型<br /> .参数 月利率, 小数型<br /> .参数 等额本息数, 小数型<br /> .局部变量 期数, 小数型<br /> <br /> 期数 ＝ 求自然对数 (等额本息数 ÷ (等额本息数 － 本金 × 月利率)) × 100 ÷ (求自然对数 (1 ＋ 月利率) × 100)<br /> 期数 ＝ 四舍五入 (期数, 2)<br /> 返回 (期数)<br /> <br /> .子程序 等额本息求本金, 小数型<br /> .参数 期数, 整数型<br /> .参数 月利率, 小数型<br /> .参数 等额本息数, 小数型<br /> .局部变量 本金, 小数型<br /> .局部变量 位数, 整数型<br /> <br /> 本金 ＝ 等额本息数 × (1 － 1 ÷ 求次方 (1 ＋ 月利率, 期数)) ÷ 月利率<br /> 位数 ＝ －(取文本长度 (到文本 (取整 (本金))) － 3)<br /> 本金 ＝ 四舍五入 (本金, 位数)  ' 四舍五入到位数，否则就会万分之4的误差<br /> 返回 (本金)<br /> <br /> .子程序 等额本息求月供, 小数型<br /> .参数 本金, 整数型<br /> .参数 期数, 整数型<br /> .参数 月利率, 小数型<br /> .局部变量 月付额, 小数型<br /> <br /> 月付额 ＝ 本金 × 月利率 × (1 ＋ 1 ÷ (求次方 (1 ＋ 月利率, 期数) － 1))<br /> 月付额 ＝ 四舍五入 (月付额, 2)<br /> 返回 (月付额)

aiaixiaoye8

看看

huangkb

感谢分享！

805612694

666666666666666666666

2446789312

please

感谢分享，支持开源！！！

胖子葛格

感谢大神分享~！

year1970

感谢分享

wh1234567

感谢分享

皮皮君

支持开源~！感谢分享