дата купона, совпадающая с датой расчета - PullRequest
0 голосов
/ 03 мая 2018

В Excel есть функция купона, которая дает дату следующего купона (coupncd), но дата которой совпадает с датой погашения (срок погашения 15/02/2020, поэтому следующая дата купона должна быть 15 / 02/2019). Однако я хочу получить противоположное, поскольку дата получения купона совпадает с датой расчета.

Я пытался создать этот код, но он не работает. Буду благодарен за вашу помощь.

Function coupdate(settlement As Date, maturity As Date, frequency As Integer) As Date

Dim today As Date
Dim n As Integer
Dim newdate As Date
today = Now()
n = Application.WorksheetFunction.Round((today - settlement) / 364, 0)
i = n
j = Application.WorksheetFunction.Round((maturity - today) / 364, 0)
For i = n To j
newdate = DateAdd("m", ((i * 12) + frequency), settlement)
i = i + (frequency / 12)
Next i
coupdate = newdate

End Function           
...