５３ DIG - プログラム倉庫

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 jyo(1900 To 2100) As Single
Dim slide(1910 To 2034, 60 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
Dim price(10 To 99) As Single
Open "c:/dig/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:/dig/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:/dig/gdata/老齢賃金.txt " For Input As #3
Do Until EOF(3)
Input #3, a1, a2, a3
byear = a1
avgmw(byear) = a2
avgfw(byear) = a3
Loop
Close #3
Open "c:/dig/gdata/調整乗率.txt " For Input As #6
Do Until EOF(6)
Input #6, a1, a2
byear = a1
jyo(byear) = a2
Loop
Close #6
Open "c:/dig/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
price(10) = 1
For year = 11 To 99
price(year) = 1.025 * price(year - 1)
Next
For year = 10 To 99
e1 = 0
For age = 60 To 99
byear = year + 2000 - age
If byear > 2034 Then byear = 2034
If byear < 1949 Then syear = 10
If byear > 1948 Then syear = byear + 65 - 2000
w1 = price(syear) * 260 * slide(byear, age) * avgmw(byear) * avgmtime(byear) * jyo(byear) / 1000
e1 = e1 + w1 * mj(year, age)
w2 = price(syear) * 240 * slide(byear, age) * avgfw(byear) * avgftime(byear) * jyo(byear) / 1000
e1 = e1 + w2 * fj(year, age)
Next
exp(year) = e1 / 10 ^ 4
Next
Open "c:/dig/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