４０ ４０ - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim b1(1 To 20) As Single
Dim b2(1 To 20) As Single
Dim c1(1 To 20) As Single
Dim c2(1 To 20) As Single
Dim mj(0 To 99, 0 To 99) As Single
Dim fj(0 To 99, 0 To 99) As Single
Dim mi(0 To 99, 0 To 99) As Single
Dim fi(0 To 99, 0 To 99) As Single
Dim m2(0 To 99, 0 To 99) As Single
Dim f2(0 To 99, 0 To 99) As Single
Dim mjy(0 To 125) As Single
Dim fjy(0 To 125) As Single
Dim m2y(0 To 125) As Single
Dim f2y(0 To 125) As Single

Dim mnew(1 To 99) As Single
Dim fnew(1 To 99) As Single
Dim mde(0 To 130) As Single
Dim fde(0 To 130) As Single
Dim mmde(0 To 130) As Single
Dim ffde(0 To 130) As Single
Dim malpha(15 To 69) As Single
Dim falpha(15 To 69) As Single
Dim beta(15 To 69) As Single
Dim gamma(15 To 69) As Single
Dim age As Single
Dim year As Single
Dim byear As Single
Dim n As Single
n = 1
Open "c:/kirakira/data/男子受給者.txt " For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3, a4, a5, a6, a7
b1(n) = a7
n = n + 1
Loop
Close #1
n = 1
Open "c:/kirakira/data/女子受給者.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3, a4, a5, a6, a7
c1(n) = a7
n = n + 1
Loop
Close #2
Open "c:/kirakira/data/男子失権率.txt " For Input As #3
Do Until EOF(3)
Input #3, a1, a2, a3, a4
age = a1
mmde(age) = a2
mde(age) = a4
Loop
Close #3
Open "c:/kirakira/data/女子失権率.txt " For Input As #4
Do Until EOF(4)
Input #4, a1, a2, a3, a4
age = a1
ffde(age) = a2
fde(age) = a4
Loop
Close #4

Open "c:/kirakira/data/男子遺族.txt " For Input As #13
Do Until EOF(13)
Input #13, a1, a2, a3, a4
age = a1
m2y(age) = a2
mjy(age) = a3
Debug.Print a1, a3
Loop
Close #13

Open "c:/kirakira/data/女子遺族.txt " For Input As #14
Do Until EOF(14)
Input #14, a1, a2, a3, a4
age = a1
f2y(age) = a2
fjy(age) = a3
Loop
Close #14


Open "c:/kirakira/gdata/老齢年金.txt" For Input As #5
Do Until EOF(5)
Input #5, a1, a2, a3, a4
year = a1
age = a2
mj(year, age) = a3
fj(year, age) = a4
Loop
Close #5

Open "c:/kirakira/gdata/厚生年金被保険者.txt" For Input As #7
Do Until EOF(7)
Input #7, a1, a2, a3, a4
year = a1
age = a2
m2(year, age) = a3
f2(year, age) = a4
Loop
Close #7


Open "c:/kirakira/data/男子脱退率.txt " For Input As #8
Do Until EOF(8)
Input #8, a1, a2, a3, a4
age = a1
gamma(age) = a2
malpha(age) = a3
beta(age) = a4
Loop
Close #8
Open "c:/kirakira/data/女子脱退力.txt " For Input As #9
Do Until EOF(9)
Input #9, a1, a2, a3, a4
age = a1
gamma(age) = a2
falpha(age) = a3
beta(age) = a4
Loop
Close #9
For age = 1 To 99
n = Int(age / 5) + 1
mi(0, age) = b1(n) / 50
fi(0, age) = c1(n) / 50
Next
For year = 1 To 99
For age = 1 To 99
mnew(age) = mjy(age) * mmde(age) * mj(year, age)
fnew(age) = fjy(age) * ffde(age) * fj(year, age)
Next
For age = 16 To 64
mnew(age) = mnew(age) + m2y(age) * malpha(age) * m2(year, age)
fnew(age) = fnew(age) + f2y(age) * falpha(age) * f2(year, age)
Next
For age = 2 To 99
mi(year, age) = mnew(age) + (1 - mde(age - 1)) * mi(year - 1, age - 1)
fi(year, age) = fnew(age) + (1 - fde(age - 1)) * fi(year - 1, age - 1)
Next
Next
For year = 1 To 99
p1 = 0
For age = 1 To 99
p1 = p1 + mi(year, age) + fi(year, age)
Next
Debug.Print year, p1
Next










End Sub