24 国民年金被保険者 - プログラム倉庫

Function s1(year As Integer, m2, f2) As Single
Dim age As Integer
Dim s2 As Single
For age = 20 To 59
s2 = s2 + m2(year, age) + f2(year, age)
Next
s1 = Int(s2)
End Function

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim a4 As Single
Dim year As Integer
Dim age As Integer
Dim m2(-5 To 99, 16 To 65) As Single
Dim f2(-5 To 99, 16 To 65) As Single
Dim m3(-5 To 99, 16 To 65) As Single
Dim f3(-5 To 99, 16 To 65) As Single
Dim m1(-5 To 99, 16 To 65) As Single
Dim f1(-5 To 99, 16 To 65) As Single
Dim mrate(20 To 59) As Single
Dim frate(20 To 59) As Single
Dim m(-5 To 99, 0 To 100) As Single
Dim f(-5 To 99, 0 To 100) As Single
Open "c:/simple/gdata/厚生年金被保険者.txt" For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3, a4
year = a1
age = a2
m2(year, age) = a3
f2(year, age) = a4
Loop
Close #1
Open "c:/simple/gdata/将来推計人口.txt" For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3, a4
year = a1
age = a2
m(year, age) = a3
f(year, age) = a4
Loop
Close #2
Open "c:/simple/gdata/厚生3号被保険者.txt" For Input As #3
Do Until EOF(3)
Input #3, a1, a2, a3, a4
year = a1
age = a2
m3(year, age) = a3
f3(year, age) = a4
Loop
Close #3
Dim m5(-5 To 99, 16 To 65) As Single
Dim f5(-5 To 99, 16 To 65) As Single
Open "c:/simple/gdata/共済3号被保険者.txt" For Input As #4
Do Until EOF(4)
Input #4, a1, a2, a3, a4
year = a1
age = a2
m5(year, age) = a3
f5(year, age) = a4
Loop
Close #4
Dim m4(-5 To 99, 16 To 65) As Single
Dim f4(-5 To 99, 16 To 65) As Single
Open "c:/simple/gdata/共済年金被保険者.txt" For Input As #5
Do Until EOF(5)
Input #5, a1, a2, a3, a4
year = a1
age = a2
m4(year, age) = a3
f4(year, age) = a4
Loop
Close #5
For year = 0 To 99
For age = 20 To 59
m1(year, age) = m(year, age) - m2(year, age) - m3(year, age) - m4(year, age) - m5(year, age)
f1(year, age) = f(year, age) - f2(year, age) - f3(year, age) - f4(year, age) - f5(year, age)
Next
Next
Open "c:/simple/gdata/国民年金被保険者.txt" For Output As #6
For year = 0 To 99
For age = 20 To 59
Write #6, year, age, m1(year, age), f1(year, age)
Next
Next
Close #6
Dim n As Integer
For n = 1 To 5
year = 5 * n
Debug.Print year, s1(year, m1, f1)
Next
For n = 3 To 6
year = 10 * n
Debug.Print year, s1(year, m1, f1)
Next
End Sub