７４ちい - プログラム倉庫

Private Sub Command1_Click()
Dim mj(0 To 99, 0 To 99) As Single
Dim fj(0 To 99, 0 To 99) As Single
Dim avgmtime(1900 To 2100) As Single
Dim avgftime(1900 To 2100) As Single
Dim avgmw(1900 To 2100) As Single
Dim avgfw(1900 To 2100) As Single
Dim jyo1(1900 To 2100) As Single
Dim jyo2(1900 To 2100) As Single
Dim jyo3(1900 To 2100) As Single
Dim jyo4(1900 To 2100) As Single
Dim mtoku(1900 To 2000) As Single
Dim ftoku(1900 To 2000) As Single
Dim slide(1900 To 2100, 0 To 99) As Single
Dim mwage(0 To 99) As Single
Dim fwage(0 To 99) As Single

Dim exp(0 To 99) As Single
Dim byear As Single
Dim year As Single
Dim age As Single
Dim e1 As Single
Open "c:/eli/gdata/老齢年金.txt" For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3, a4
year = a1
age = a2
mj(year, age) = a3
fj(year, age) = a4
Loop
Close #1
Open "c:/eli/gdata/平均加入年数.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3
byear = a1
avgmtime(byear) = a2
avgftime(byear) = a3
Loop
Close #2
Open "c:/eli/gdata/基礎スライド.txt" For Input As #22
Do Until EOF(22)
Input #22, a1, a2, a3
byear = a1
age = a2
slide(byear, age) = a3
Loop
Close #22
Open "c:/eli/data/特別支給.txt" For Input As #33
Do Until EOF(33)
Input #33, a1, a2, a3
byear = a1
mtoku(byear) = a2
ftoku(byear) = a3
Loop
Close #33
For byear = 1955 To 2000
mtoku(byear) = 65
ftoku(byear) = 65
Next
For byear = 1900 To 1950
avgmtime(byear) = avgmtime(1951)
avgftime(byear) = avgftime(1951)
Next
For year = 8 To 25
e1 = 0
For age = 60 To 64
byear = year + 2000 - age
w1 = 80 * slide(byear, age) * avgmtime(byear) / 40
If mtoku(byear) > age Then w1 = 0
e1 = e1 + w1 * mj(year, age)
w2 = 80 * slide(byear, age) * avgftime(byear) / 40
If ftoku(byear) > age Then w2 = 0
e1 = e1 + w2 * fj(year, age)
Next
exp(year) = e1 / 10 ^ 4
Next
Open "c:/eli/gdata/特別支給.txt " For Output As #5
For year = 5 To 99
Write #5, year, exp(year)
Next
Close #5
For year = 10 To 30
Debug.Print year, exp(year)
Next
End Sub