Dim newDate As Date newDate = CDate(CStr(PayDay) + "." + CStr(localMoun) + "." + CStr(localYear)) offsetDay = newDate - currDate tmpDay = newDate - CDate("1." + CStr(localMoun) + "." + CStr(localYear)) localStavk = stavk / funYearDayCount(CStr(PayDay) + "." + CStr(localMoun) + "." + CStr(localYear)) For dayFirst = 1 To tmpDay sum = sum * (1 + localStavk) Next ActiveSheet.Cells(2 + Index, 5).Value = newDate ActiveSheet.Cells(2 + Index, 6).Value = pay ActiveSheet.Cells(2 + Index, 7).Value = (sum - dolg + pay) dolg = dolg - pay If Index = MaxMoun Then dolg = 0 End If ActiveSheet.Cells(2 + Index, 8).Value = (dolg) Moun = localMoun Year = localYear currDate = newDate Next什么意思
时间: 2024-04-21 15:30:14 浏览: 169
这是与之前那段代码相连的Visual Basic代码,它计算并显示每个月的还款金额和未偿还贷款余额。具体来说,它首先计算每个月的还款日期,然后计算本月的利息,累加到总贷款金额上,并计算出本月的还款金额。然后更新未偿还贷款余额,并将新的月份、年份和当前日期保存在相应的变量中。最后,它将还款日期、还款金额和未偿还贷款余额写入Excel表格中。如果是最后一个月,则将未偿还贷款余额设置为0。
相关问题
For Index = 1 To MaxMoun Dim localMoun, localYear, offsetDay, tmpDay As Integer localMoun = Moun + 1 localYear = Year Dim sum, localStavk As Double sum = dolg tmpDay = funMonthDayCount(CStr(Day) + "." + CStr(Moun) + "." + CStr(Year)) tmpDay = CDate(CStr(tmpDay) + "." + CStr(Moun) + "." + CStr(Year)) - currDate + 1 localStavk = stavk / funYearDayCount(CStr(Day) + "." + CStr(Moun) + "." + CStr(Year)) For dayFirst = 1 To tmpDay sum = sum * (1 + localStavk) Next If localMoun > 12 Then localMoun = 1 localYear = localYear + 1 End If什么意思
这是一段 Visual Basic 代码,它计算一个贷款的利息。具体来说,它通过循环计算每个月的利息,并将利息累加到总贷款金额上,最终返回总金额。这段代码中的变量有:MaxMoun(最大月份),Moun(贷款开始的月份),Year(贷款开始的年份),dolg(贷款金额),stavk(利率),currDate(当前日期)。循环中的变量有:localMoun(当前月份),localYear(当前年份),offsetDay(偏移天数),tmpDay(当前月份的天数),sum(当前总金额),localStavk(当前月份的利率),dayFirst(循环中的第几天)。
Function funMonthDayCount(data As Date) As Integer funMonthDayCount = DateAdd("m", 1, CDate("01." + Trim(Month(data)) + "." + Trim(Year(data)))) _ - CDate("01." + Trim(Month(data)) + "." + Trim(Year(data))) End Function什么意思
这段代码是一个用于计算某个日期所在月份的天数的 VBA 函数。具体来说,该函数的参数是一个日期类型的变量 data,该参数表示要计算天数的日期。该函数的返回值是该日期所在月份的天数。
函数内部的计算逻辑是,首先将 data 转换为一个字符串,然后将该字符串的月份和年份提取出来,并按照 "01.mm.yyyy" 的格式组成一个新的字符串。接着,使用 CDate() 函数将该字符串转换为一个日期类型的变量,表示该月份的第一天。然后,使用 DateAdd() 函数在该日期的基础上加上一个月,得到下一个月的第一天,并将其转换为日期类型的变量。最后,将下一个月的第一天减去该月份的第一天,得到该月份的天数。
需要注意的是,该函数中的 Trim() 函数用于去除字符串中的空格。
阅读全文