29 給付現価 - プログラム倉庫

Function sumkiso(kiso) As Single
Dim g1 As Single
Dim year As Integer
g1 = 0
For year = 5 To 99
g1 = g1 + kiso(year) / (1 + 0.032) ^ (year - 5)
Next
sumkiso = g1
End Function
Function sumgou(gou) As Single
Dim g1 As Single
Dim year As Integer
g1 = 0
For year = 5 To 99
g1 = g1 + gou(year) / (1 + 0.032) ^ (year - 5)
Next
sumgou = g1
End Function
Private Sub Command1_Click()
Dim year As Integer
Dim age As Integer
Dim kiso(-5 To 99) As Single
Dim tu(-5 To 99) As Single
Dim rou(-5 To 99) As Single
Dim iz(-5 To 99) As Single
Dim gou(-5 To 99) As Single
Dim a1 As Single
Dim a2 As Single
Dim n As Integer
Dim g As Single
Open "c:/simple/gdata/基礎年金拠出金.txt" For Input As #1
Do Until EOF(1)
Input #1, a1, a2
year = a1
kiso(year) = a2
Loop
Close #1
Open "c:/simple/gdata/老齢年金受給額.txt" For Input As #2
Do Until EOF(2)
Input #2, a1, a2
year = a1
rou(year) = a2
Loop
Close #2
Open "c:/simple/gdata/通算年金受給額.txt" For Input As #3
Do Until EOF(3)
Input #3, a1, a2
year = a1
tu(year) = a2
Loop
Close #3
Open "c:/simple/gdata/遺族年金受給額.txt" For Input As #4
Do Until EOF(4)
Input #4, a1, a2
year = a1
iz(year) = a2
Loop
Close #4
For year = 1 To 99
gou(year) = tu(year) + rou(year) + iz(year) + kiso(year)
Next
Debug.Print sumgou(gou)
End Sub