桂 ９９ - プログラム倉庫

Private Sub Command1_Click()
Dim mj(1900 To 2100, 20 To 64, 20 To 99) As Single
Dim fj(1900 To 2100, 20 To 64, 20 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 jyo(1900 To 2100) As Single
Dim mwage(0 To 99) As Single
Dim fwage(0 To 99) As Single
Dim slide(8 To 99) As Single
Dim exp(0 To 99) As Single
Dim price(10 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 #6
Do Until EOF(6)
Input #6, a1, a2
byear = a1
jyo(byear) = a2
Loop
Close #6
Open "c:/eli/gdata/遺族スライド.txt" For Input As #22
Do Until EOF(22)
Input #22, a1, a2
year = a1
slide(year) = a2
Loop
Close #22
Open "c:/eli/gdata/現役遺族.txt" For Input As #11
Do Until EOF(11)
Input #11, a1, a2, a3, a4, a5
byear = a1
startage = a2
age = a3
mj(byear, startage, age) = a4
fj(byear, startage, age) = a5
Loop
Close #11

price(10) = 1
For year = 11 To 99
price(year) = 1.025 * price(year - 1)
Next
For year = 10 To 99
e1 = 0
For startage = 20 To 64
For age = startage To 99
byear = year + 2000 - age
syear = byear + startage - 2000
If syear < 10 Then syear = 10
w1 = 0.75 * price(syear) * 260 * slide(year) / slide(syear) * 2 * 25 * jyo(byear) / 1000
e1 = e1 + w1 * mj(byear, startage, age)
w2 = 0.75 * price(syear) * 220 * slide(year) / slide(syear) * 1.4 * 25 * jyo(byear) / 1000
e1 = e1 + w2 * fj(byear, startage, age)
Next
Next
exp(year) = e1 / 10 ^ 4
Next
Open "c:/eli/gdata/現役遺族年金受給額.txt " For Output As #5
For year = 10 To 99
Write #5, year, exp(year)
Next
Close #5
For n = 1 To 9
year = 10 * n
Debug.Print year, exp(year)
Next

End Sub