ざい＠「 - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim rev(5 To 99) As Single
Dim zrev(0 To 105) As Single
Dim zkyo(0 To 105) As Single
Dim kyu(0 To 105) As Single
Dim rou(5 To 99) As Single
Dim tu(5 To 99) As Single
Dim kyo(5 To 99) As Single
Dim iz(5 To 99) As Single
Dim kuni(0 To 105) As Single
Dim year As Single
Dim age As Single
Open "c:/nagoya/gdata/gdata2/支払保険料.txt " For Input As #5
Do Until EOF(5)
Input #5, a1, a2
year = a1
rev(year) = a2
Loop
Close #5
Open "c:/nagoya/gdata/gdata2/老齢年金受給額.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2
year = a1
rou(year) = a2
Loop
Close #2
Open "c:/nagoya/gdata/gdata2/通算年金受給額.txt " For Input As #3
Do Until EOF(3)
Input #3, a1, a2
year = a1
tu(year) = a2
Loop
Close #3
Open "c:/nagoya/gdata/gdata2/遺族年金受給額.txt " For Input As #5
Do Until EOF(5)
Input #5, a1, a2
year = a1
iz(year) = a2
Loop
Close #3
Open "c:/nagoya/gdata/gdata2/基礎年金拠出金.txt " For Input As #4
Do Until EOF(4)
Input #4, a1, a2
year = a1
kyo(year) = a2
Loop
Close #4
Open "c:/nagoya/data/財政検証.txt " For Input As #41
Do Until EOF(41)
Input #41, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11
year = a1 - 2000
zrev(year) = a4
kuni(year) = a5
kyu(year) = a9
zkyo(year) = a10
Loop
Close #41
r2 = 0
For year = 10 To 99
r2 = r2 + (rou(year) + tu(year) + iz(year)) / (1 + 0.041) ^ (year - 10)
Next
Debug.Print r2
r2 = 0
For year = 10 To 99
r2 = r2 + kyo(year) / (1 + 0.041) ^ (year - 10)
Next
Debug.Print r2
r2 = 0
For year = 10 To 99
r2 = r2 + rev(year) / (1 + 0.041) ^ (year - 10)
Next
Debug.Print r2
r1 = 0
For year = 10 To 99
r1 = r1 + kuni(year) / (1 + 0.041) ^ (year - 10)
Next
Debug.Print r1



End Sub