世代通算年金 - プログラム倉庫

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 mwage(0 To 99) As Single
Dim fwage(0 To 99) As Single
Dim slide(1900 To 2100, 0 To 99) As Single
Dim tu(0 To 99, 1 To 99) As Single
Dim byear As Single
Dim year As Single
Dim age As Single
Dim e1 As Single
Open "c:/nagoya/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:/nagoya/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:/nagoya/gdata/男子通算賃金1.txt " For Input As #3
Do Until EOF(3)
Input #3, a1, a2
byear = a1
avgmw(byear) = a2
Loop
Close #3
Open "c:/nagoya/gdata/女子通算賃金1.txt " For Input As #4
Do Until EOF(4)
Input #4, a1, a2
byear = a1
avgfw(byear) = a2
Loop
Close #4
Open "c:/nagoya/data/乗率.txt " For Input As #6
Do Until EOF(6)
Input #6, a1, a2, a3, a4, a5
byear = a1
jyo1(byear) = a2
jyo2(byear) = a3
jyo3(byear) = a4
jyo4(byear) = a5
Loop
Close #6
Open "c:/nagoya/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
For byear = 1900 To 1941
avgmtime(byear) = avgmtime(1941)
avgftime(byear) = avgftime(1941)
Next
For byear = 1900 To 1990
avgmw(byear) = avgmw(1990)
avgfw(byear) = avgfw(1990)
Next
For byear = 1900 To 1925
jyo1(byear) = jyo1(1926)
Next
For byear = 1946 To 2100
jyo1(byear) = jyo1(1946)
Next
For year = 5 To 99
For age = 1 To 99
e1 = 0
byear = year + 2000 - age
w1 = 24 * slide(byear, age) * 12 * avgmw(byear) * avgmtime(byear) * jyo1(byear) / 1000
e1 = w1 * mj(year, age)
w2 = 21 * slide(byear, age) * 12 * avgfw(byear) * avgftime(byear) * jyo1(byear) / 1000
e1 = e1 + w2 * fj(year, age)
tu(year, age) = e1 / 10 ^ 4
Next
Next
Open "c:/nagoya/gdata/世代通算年金.txt " For Output As #5
For year = 5 To 99
For age = 1 To 99
Write #5, year, age, tu(year, age)
Next
Next
Close #5











End Sub