оч нужно помощь!!!!срочно!!!

[m'c]

рассчитать наращенную сумму по вкладу, используя пормулу процентов:
S=P*(1+i/100*t/m), где S-наращенная сумма, P-величина вклада, i-номинальная годовая процентная ставка, t-срок, если m=1 то за год, m=4 то за квартал, m=12 за месяц, m=360 за день. Пажалуйста помогите сделать оч нужно
Я буду вам очень очень благодарна
P.S. эт в программе Visual Basic

[Teslenko_EA]

Здравствуйте m'c.
Надеюсь Вам поможет функция:

Код: Выделить всё

Function addContribution(P#, _
    Optional i# = 10, Optional t% = 1, Optional m% = 1) As Double
    addContribution = P * (1 + i / 100 * t / m) - vP
    'задача отобразить только "наращенную", думаю необходимо удалить из
    'результата исходную сумму, если я не прав - удалите следующую строку
    addContribution = addContribution - P
End Function
'процедура для тестирования
Sub test()
Dim i%
i = addContribution(100, 20, 5, 12) * 100
MsgBox i / 100
End Sub

на листе Excel применять можно так:
= addContribution(A1; 9; ; 4)
Евгений.