ｇｈｊ - プログラム倉庫

Private Sub Command1_Click()
Dim year As Single
Dim age As Single
Dim rev(0 To 99, 0 To 99) As Single
Dim rou(0 To 99, 0 To 99) As Single
Dim tu(0 To 99, 0 To 99) As Single
Dim iz(0 To 99, 0 To 99) As Single
Dim byear As Single
Open "c:/nagoya/gdata/世代保険料.txt " For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3
year = a1
age = a2
rev(year, age) = a3
Loop
Close #1
Open "c:/nagoya/gdata/世代老齢年金.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3
year = a1
age = a2
rou(year, age) = a3
Loop
Close #2
Open "c:/nagoya/gdata/世代通算年金.txt " For Input As #3
Do Until EOF(3)
Input #3, a1, a2, a3
year = a1
age = a2
tu(year, age) = a3
Loop
Close #3
Open "c:/nagoya/gdata/世代遺族年金.txt " For Input As #4
Do Until EOF(4)
Input #4, a1, a2, a3
year = a1
age = a2
iz(year, age) = a3
Loop
Close #4
byear = 1970
For year = 10 To 99
age = year + 2000 - byear
h = 0
If age > 0 Then h = h + 1
If age < 100 Then h = h + 1
z1 = 0
z2 = 0
If h = 2 Then z1 = rou(year, age) + tu(year, age) + iz(year, age)
If h = 2 Then z2 = rev(year, age)
b1 = b1 + z1 / (1 + 0.041) ^ (year - 10)
b2 = b2 + z2 / (1 + 0.041) ^ (year - 10)
Next
Debug.Print byear, b1, b2



End Sub