９８ DIG - プログラム倉庫

Private Sub Command1_Click()
Dim byear As Single
Dim syear As Single
Dim car 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 mnew1(1990 To 2100, 15 To 64) As Single
Dim fnew1(1990 To 2100, 15 To 64) As Single
Dim mnew2(1900 To 1989, 15 To 64) As Single
Dim fnew2(1900 To 1989, 15 To 64) As Single
Dim mi(1900 To 2100, 20 To 64, 20 To 99) As Single
Dim fi(1900 To 2100, 20 To 64, 20 To 99) As Single
Dim year As Single
Open "c:/dig/data/男子失権率.txt " For Input As #3
Do Until EOF(3)
Input #3, a1, a2, a3, a4
age = a1
mjde(age) = a2
mde(age) = a4
Loop
Close #3
Open "c:/dig/data/女子失権率.txt " For Input As #4
Do Until EOF(4)
Input #4, a1, a2, a3, a4
age = a1
fjde(age) = a2
fde(age) = a4
Loop
Close #4
Open "c:/dig/gdata/男子遺族新規裁定者1.txt " For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3
byear = a1
age = a2
mnew1(byear, age) = a3
Loop
Close #1
Open "c:/dig/gdata/女子遺族新規裁定者1.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3
byear = a1
age = a2
fnew1(byear, age) = a3
Loop
Close #2
Open "c:/dig/gdata/男子遺族新規裁定者2.txt " For Input As #3
Do Until EOF(3)
Input #3, a1, a2, a3
byear = a1
age = a2
mnew2(byear, age) = a3
Loop
Close #3
Open "c:/dig/gdata/女子遺族新規裁定者2.txt " For Input As #4
Do Until EOF(4)
Input #4, a1, a2, a3
byear = a1
age = a2
fnew2(byear, age) = a3
Loop
Close #4
For byear = 1950 To 1989
For startage = 20 To 64
mi(byear, startage, startage) = mnew2(byear, startage)
For age = startage + 1 To 99
mi(byear, startage, age) = (1 - mde(age - 1)) * mi(byear, startage, age - 1)
Next
Next
Next
For byear = 1950 To 1989
For startage = 20 To 64
fi(byear, startage, startage) = fnew2(byear, startage)
For age = startage + 1 To 99
fi(byear, startage, age) = (1 - fde(age - 1)) * fi(byear, startage, age - 1)
Next
Next
Next
For byear = 1990 To 2034
For startage = 20 To 64
mi(byear, startage, startage) = mnew1(byear, startage)
For age = startage + 1 To 99
mi(byear, startage, age) = (1 - mde(age - 1)) * mi(byear, startage, age - 1)
Next
Next
Next
For byear = 1990 To 2034
For startage = 20 To 64
fi(byear, startage, startage) = fnew1(byear, startage)
For age = startage + 1 To 99
fi(byear, startage, age) = (1 - fde(age - 1)) * fi(byear, startage, age - 1)
Next
Next
Next
Open "c:/dig/gdata/現役遺族.txt " For Output As #5
For byear = 1950 To 2080
For startage = 20 To 64
For age = 20 To 99
Write #5, byear, startage, age, mi(byear, startage, age), fi(byear, startage, age)
Next
Next
Next
Close #5









End Sub