ｇｐｇｈ - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim b1(0 To 120) As Single
Dim b2(0 To 120) As Single
Dim b3(0 To 120) As Single
Dim c1(0 To 120) As Single
Dim c2(0 To 120) As Single
Dim c3(0 To 120) As Single
Dim mi(8 To 99, 1 To 99) As Single
Dim fi(8 To 99, 1 To 99) As Single
Dim mj(0 To 99, 0 To 99) As Single
Dim fj(0 To 99, 0 To 99) As Single
Dim m2(0 To 99, 15 To 69) As Single
Dim f2(0 To 99, 15 To 69) As Single
Dim m2new(1950 To 2099, 15 To 64) As Single
Dim f2new(1950 To 2099, 15 To 64) As Single
Dim mjnew(1910 To 2034, 65 To 99) As Single
Dim fjnew(1910 To 2034, 65 To 99) As Single
Dim m2rate(0 To 200) As Single
Dim f2rate(0 To 200) As Single
Dim mrate(0 To 200) As Single
Dim frate(0 To 200) As Single
Dim mde(0 To 130) As Single
Dim fde(0 To 130) As Single
Dim mjde(0 To 130) As Single
Dim fjde(0 To 130) As Single
Dim age As Single
Dim year As Single
Dim byear As Single
Dim n As Single
Dim malpha(15 To 69) As Single
Dim falpha(15 To 69) As Single
Dim syear As Single
n = 1
Open "c:/eli/data/男子受給者.txt " For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14
age = a1
b1(age) = a12
b2(age) = a13
b3(age) = a14
Loop
Close #1
n = 1
Open "c:/eli/data/女子受給者.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14
age = a1
c1(age) = a12
c2(age) = a13
c3(age) = a14
Loop
Close #2
Open "c:/eli/data/男子失権率.txt " For Input As #3
Do Until EOF(3)
Input #3, a1, a2, a3, a4
age = a1
mde(age) = a4
Loop
Close #3
Open "c:/eli/data/女子失権率.txt " For Input As #4
Do Until EOF(4)
Input #4, a1, a2, a3, a4
age = a1
fde(age) = a4
Loop
Close #4
Open "c:/eli/gdata/遺族新規裁定者.txt " For Input As #6
Do Until EOF(6)
Input #6, a1, a2, a3, a4
byear = a1
age = a2
m2new(byear, age) = a3
f2new(byear, age) = a4
Loop
Close #6
Open "c:/eli/gdata/遺族年金新規裁定者3.txt " For Input As #7
Do Until EOF(7)
Input #7, a1, a2, a3, a4
byear = a1
age = a2
mjnew(byear, age) = a3
fjnew(byear, age) = a4
Loop
Close #7

year = 8
For age = 1 To 99
mi(year, age) = (b1(age) + b2(age) + b3(age)) / 10 ^ 4
fi(year, age) = (c1(age) + c2(age) + c3(age)) / 10 ^ 4
Next
For year = 9 To 99
For age = 2 To 99
mi(year, age) = (1 - mde(age - 1)) * mi(year - 1, age - 1)
fi(year, age) = (1 - fde(age - 1)) * fi(year - 1, age - 1)
Next
For age = 15 To 64
byear = year - age + 2000
If byear > 1950 Then mi(year, age) = mi(year, age) + m2new(byear, age)
If byear > 1950 Then fi(year, age) = fi(year, age) + f2new(byear, age)
Next
For age = 65 To 99
byear = year - age + 2000
mi(year, age) = mi(year, age) + mjnew(byear, age)
fi(year, age) = fi(year, age) + fjnew(byear, age)
Next
Debug.Print year
Next
Open "c:/eli/gdata/遺族年金a.txt " For Output As #16
For year = 8 To 99
For age = 1 To 99
Write #16, year, age, mi(year, age), fi(year, age)
Next
Next
Close #16
For year = 10 To 99
a1 = 0
For age = 15 To 99
a1 = a1 + mi(year, age) + fi(year, age)
Next
Debug.Print year, a1
Next

End Sub