Список проголосовавших за комментарий "Ну и для ежедневного расчета XIRR (как почти-программист программисту)<br/> <br/> <blockquote><p>Public Function MyXIRR(Values As Range, Dates As Range, Balance As Range) As Double</p><p>ReDim varDates(1 To Dates.Count) As Double<br/> ReDim varValues(1 To Values.Count) As Double</p><p>Dim objCell As Range<br/> Dim lngIndex As Long<br/> <br/> lngIndex = 0<br/> For Each objCell In Dates<br/> <br/> lngIndex = lngIndex + 1<br/> varDates(lngIndex) = objCell.Value<br/> Next<br/> <br/> lngIndex = 0<br/> For Each objCell In Values<br/> <br/> lngIndex = lngIndex + 1<br/> varValues(lngIndex) = objCell.Value<br/> Next<br/> <br/> varValues(UBound(varValues)) = varValues(UBound(varValues)) — Balance.Value<br/> <br/> MyXIRR = Excel.WorksheetFunction.Xirr(varValues, varDates) * 100<br/> End Function</p></blockquote>"