Как рассчитать сложный процент ?

[Antonio401]

У меня четые TextBox-a, в первый пользователь
вводит начальную сумму депозита, во второй
процентную ставку, в третий -количество месяцев, и
программа должна в четвертом TextBox-е выдать
конечную сумму.
Например 1000р. 10% 3 месяца получается 1331р.
Для простого процента я функцию накатал, а для
вот такого не получается.
Help me,please with

[skiperski]

И в чем проблема? В цикле последовательно получаешь сумму процентов за каждый месяц.

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

Public Function test(ByVal sum As Single, ByVal mm As Long, ByVal percent As Single) As Single
   
    Dim i As Long
   
    percent = 1 + percent / 100
   
    For i = 1 To mm
        sum = sum * percent
    Next
   
    test = sum
   
End Function

Immediate window
----------------------
?test(1000,3,10)
1331



[Antonio401]

[quote="skiperski"]И в чем проблема?

Большое спасибо

[GSerg]

Вообще-то это делается так :

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

Function ItogVal (StartVal as Single, Rate as Single, PeriodsCount as Single) as Single
  ItogVal = StartVal * (1 + Rate / 100) ^ PeriodsCount
End Function

[Antonio401]

Вообще-то это делается так :

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

Function ItogVal (StartVal as Single, Rate as Single, PeriodsCount as Single) as Single
  ItogVal = StartVal * (1 + Rate / 100) ^ PeriodsCount
End Function

Спасибо всем . Все примеры работают

[alibek]

Вообще-то в VB6 есть модуль с финансовыми функциями, какая-нибудь из них наверняка подходит

[skiperski]

Вообще-то это делается так :

Старею, однако. Простое возведение в степень не узнал.