使用BVA编写代码，实现以下功能：三种不同的租赁合同，分别是月结，季结，半年结，月结要求是合同开始后的次月起计算每月应收租金（请注意次月开始第一个月的租金计算应考虑到合同开始日至当月月底的天数问题，比如合同开始日为23年1月11日，那么次月即23年2月开始计算第一个月的租金时应根据月度租金额这个参数，只计算1月11日至1月31日共计21天的租金，第二个月开始的整月就不用考虑天数问题，直接使用给定的参数月合同金额,最后一个月若是整月直接使用月合同金额，若不是于整月，根据实际天数计算），至当年度12月至。季结要求合同开始三个月后的次月计算前三个月的应收租金（请注意第一个月的租金计算应考虑到合同开始日至当月月底的天数问题，第二次计算后三个月租金就不用考虑天数问题，最后三个月若是整月直接使用月合同金额，若不是于整月，根据实际天数计算），以次类推，至当年度12月至。半年结要求合同开始六个月后的次月计算前六个月的应收租金（请注意第一个月的租金计算应考虑到合同开始日至当月月底的天数问题，第二次计算后六个月租金时需考虑最后一个月若是整月直接使用月合同金额，若不是于整月，根据实际天数计算），以次类推，至当年度12月至。
以上代码要求是一个自定义函数，函数的参数有五个，分别是合同起始日（日期格式）、合同结束日（日期格式）、第三个参数是结算周期（月结、季结、半年结）、第四个参数是本年度的月份区间为1-12的月数组成，具体单元选择从哪一行开始，从哪一列开始可自由选择、第五个参数是月度租金额。
结合一个实例来说明一下：一份月结合同，第一个参数合同开始日23年1月1日在H5单元格、第二个参数合同结束日23年8月31日在I5单元格、第三个参数结算周期月结在K5单元格、第四个参数当年度的月份区域在L3：W3（L3单元格的值1表示为当年度的1月份，M3单元格的值2表示当年度的2月份，N3单元格的值3表示当年度的3月份，以次类推至到W3单元格的值12表示当年度的12月份）、第五个参数月合同金额75000在G5单元格，需要在L5：W5区间的单元格中分别计算出当年度1月份应收租金（L5值应为0），当年度2月份应收租金（M5值26.83万），当年度3月份应收租金（N5值26.83万），以此类推至到T5单元格对应的当年度9月份应收租金26.83万，U5：W5单元格无应收租金。

[此贴子已经被作者于2023-5-31 08:32编辑过]

是整个自定义函数运行之后在目标单元格中的计算的值差异过大

是这样的需求，以前的EXCEL公式过于繁杂，太不方便了，还有一点就是这个EXCEL公式没有考虑不满一个月时的应收租金的计算

好像首月的应收租金是计算了两个月的金额，正确的理解应该是先用后付的概念，也就是说比如1月开始起租，1月的租金是2月支付，2月的租金是3月支付，以次类推至合同结束后的下一个月收取最后一个月的租金，季结的也是这样的理解，合同开始后的前三个月不收取租金，第四个月开始收取前三个月的租金，第七个月收取前三个月的租金，半年结就是前6个月不收租金，第七个月收取前6个月的租金，第13个月再收前6个月的租金

季结、半年结、年结的是根据合同起始的月份往后推3个月，6个月，12个月，比如合同开始于23年1月1日，那第一季度的应收租金应该在4月份体现，合同开始于23年2月1日的，那第一个季度的应收租金应该体现在5月份，半年结与年结的也是这样理解

[此贴子已经被作者于2023-5-31 15:57编辑过]

谢谢大神的解惑

感觉月结的重新计算后除了1月份起租的可以正常计算外，其他月份起租的计算结果全为0了

当合同起租期改为23年2月或其他月份时，就会出现图上显示的计算结果为0的情况

问题已完美解决，

大神你好，上次我求助将不同场景的应收租金的计算公式使用VBA代替时，你帮我解决了问题，今天我在实际使用中遇到了一个特殊的问题，当结算方式为季结时，合同开始的月份为4及以上时，计算出来的值为0，能否帮我一下，解决这个小问题