Sub pension()
Let Salary = 6000 ' наша заработная плата
Let tax = 0.04 ' 4% от зарплаты составляет накопительная часть ЕСН
Let percent = 0.15 / 12 ' ежемесячный процент из БПФ
Let inflation = 0.1 / 12 ' ежемесячное значение инфляции, мог напутать с её механизмом
Let inflation_growth_monthly = 0.05 / 12
Let pension_ = 0 ' начальное значение пенсии
For i = 1 To 480 ' работаем 480 месяцев, или 40 лет
pension_ = (pension_ + Salary * tax) * (1 + percent) * (1 - inflation) ' ну, считаем
inflation = inflation * (1 + inflation_growth_monthly)
Next i ' работаем дальше
MsgBox ("Ежемесячная пенсия составит" + Str((pension_ / 19) / 12) + Chr(13) + "Инфляция вырастет до" + Str(Round(inflation * 100, 5) * 12) + "% в год") ' выводим ежемесячную пенсию на экран
End Sub
При постоянном росте инфляции 5% в год пенсия составит 23 рубля.
Let Salary = 6000 ' наша заработная плата
Let tax = 0.04 ' 4% от зарплаты составляет накопительная часть ЕСН
Let percent = 0.15 / 12 ' ежемесячный процент из БПФ
Let inflation = 0.1 / 12 ' ежемесячное значение инфляции, мог напутать с её механизмом
Let inflation_growth_monthly = 0.05 / 12
Let pension_ = 0 ' начальное значение пенсии
For i = 1 To 480 ' работаем 480 месяцев, или 40 лет
pension_ = (pension_ + Salary * tax) * (1 + percent) * (1 - inflation) ' ну, считаем
inflation = inflation * (1 + inflation_growth_monthly)
Next i ' работаем дальше
MsgBox ("Ежемесячная пенсия составит" + Str((pension_ / 19) / 12) + Chr(13) + "Инфляция вырастет до" + Str(Round(inflation * 100, 5) * 12) + "% в год") ' выводим ежемесячную пенсию на экран
End Sub
При постоянном росте инфляции 5% в год пенсия составит 23 рубля.
Отправить комментарий
<< На главную