Public Function НакСумма (ВеличинаВклада As Variant, Ставка As Single, Дата As Variant) As Double

Пункт 6. Составляем программный код.

Определим количество платежей К. Оно будет совпадать в общем случае с количеством ячеек в столбце сумма вклада. Количество ячеек в выделенном блоке определяется с помощью ключевого слова Count.

K = ВеличинаВклада.Count

Понятно, что начальное значение накопленной суммы будет совпадать с величиной первого вклада, т.е.

НакСумма = ВеличинаВклада(1)

При внесении любого платежа, начиная со второго, будет произведено начисление процентов по формуле

НакСумма = НакСумма + НакСумма * Ставка / 365 * Разность +
ВеличинаВклада(I),

где годовая ставка делится на количество дней в году, а разность есть количество дней между двумя соседними платежами, рассчитываемое по формуле

Разность = Дата (I) – Дата (I-1)

Две последние строки программного кода следует поместить в цикл (оператор For…To…Step…Next), так как они должны повторяться К – 1 раз.

Отметим также, что в программе фигурируют три вспомогательные переменные, которые не являются исходными данными. Это К – количество платежей, I – номер очередного платежа и Разность – количество дней между двумя соседними платежами. Все они являются переменными типа Integer. Прежде чем использовать в программе эти переменные их нужно описать с помощью оператора Dim

Dim K As Integer

Dim I As Integer

Dim Разность As Integer

или одним оператором

Dim K, I, Разность As Integer

В программе для большего ее понимания следует разместить комментарии (эти строки выделены зеленым цветом и выполняться не будут). Начинаются комментарии либо с апострофа (‘), либо о ключевого слова Rem.

В итоге получим программный код:

Public Function НакСумма (ВеличинаВклада As Variant, Ставка As Single, Дата As Variant) As Double

2) Dim K, I, Разность As Integer ‘ Описываем переменные

3) K = ВеличинаВклада.Count ‘ Определяем количество платежей

4) НакСумма = ВеличинаВклада(1)

5) For I = 2 To K

6) Разность = Дата (I) – Дата (I-1) ‘ Определяем количество дней между платежами

7) НакСумма = НакСумма + НакСумма * Ставка / 365 * Разность +
ВеличинаВклада(I) ‘ Производим начисление процентов по вкладу

Next I

End Function

 

Пункт 7. Перейдите на лист с исходными данными. В ячейке С2 выполните команду Вставка → Функция, выберите категорию Определенные пользователем, функцию НакСумма и нажмите ОК. Введите в поля следующие данные: ВеличинаВклада – A2:A6, Ставка – 60%, Дата – B2:B6. Должен появиться результат 5743,46.

Задача 2.1. Разработайте функцию пользователя для расчета средней гармонической величины x по формуле:

где – средняя гармоническая величины x;

x_i – i-е значение величины Х.

Решение.

Выполните три первых пункта алгоритма создания функции пользователя.

Пункт 4. В поле Name введите заголовок СредняяГармоническая нажмите кнопку ОК.

Пункт 5. Появился заголовок функции:

Public Function СредняяГармоническая()

End Function

В нашей задаче исходными данными являются значения величины Х. Так как величина Х – это последовательность вещественных чисел, то определим переменную Х как переменную типа Variant.

Введите строку заголовка: