複利で資産運用の問題です。

質問

150万円の金融資産を運用します。さらに毎月3万円づつ追加して運用します。150万円に対しての金利は1日750円です。金利は変動しないものと仮定します。
金利が3万円に貯まったら繰返し運用に回します。これを20年間続けた時の金融資産合計と1日にもらえる金利はいくらになりますか？答えと計算式を教えてください。

回答No.1

pikute

VBA（パソコンによる）にて
150万円に対しての金利は1日750円　
＝　一日　０．０５％とした計算をしますと・・・

Q１　計算式を教えてください
A１　回　答
Sub オートシェイプ1_Click()
a = 1500000 '元金
b = 0.0005 '利率
n = 0 '何日たったか
risi = 0 'ためた利子の額
For n = 0 To 7280 '２０年間くりかえす　３６４×２０＝７２８０
If risi > 30000 Then　’利子が3万以下なら元金に０．０５％かけ利　　　　　　　　　　　　子についか
a = a + risi　　　　　
risi = a * b
Else
risi = risi + (a * b)　’利子が3万以上なら利子と元金をたしてから
End If　　　　　　　　’０．０５％をかける
Next n
Cells(1, 1) = a
Cells(1, 2) = b
Cells(1, 3) = risi
Cells(1, 4) = n
End
End Sub
金融資産合計と1日にもらえる金利はいくらになりますか？

150万と20年間分利子　＝56527082円
一日に　　　　　　　　　　56527円

お礼

ご丁寧にありがとうございます。
さっそくやってみたいと思います。