75 被保険者 - プログラム倉庫

Private Sub Command1_Click()
Dim n As Single
Dim data(1 To 200) As Single
Dim year As Single
Dim age As Single
Dim m2(0 To 99, 15 To 69) As Single
Dim f2(0 To 99, 15 To 69) As Single
Dim m5(0 To 99, 15 To 69) As Single
Dim f5(0 To 99, 15 To 69) As Single
Dim m4(0 To 99, 15 To 69) As Single
Dim f4(0 To 99, 15 To 69) As Single
Dim m3(0 To 99, 15 To 69) As Single
Dim f3(0 To 99, 15 To 69) As Single
Dim m(0 To 99, 0 To 99) As Single
Dim f(0 To 99, 0 To 99) As Single
Dim m1(0 To 99, 14 To 80) As Single
Dim f1(0 To 99, 14 To 80) As Single
Dim kiso(0 To 99) As Single
Dim kyo(0 To 99) As Single
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim a4 As Single
Dim a5 As Single
Dim a6 As Single
Dim a7 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
m2(year, age) = a3
f2(year, age) = a4
Loop
Close #1
Open "c:/eli/gdata/共済年金被保険者.txt" For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3, a4
year = a1
age = a2
m4(year, age) = a3
f4(year, age) = a4
Loop
Close #2
Open "c:/eli/gdata/厚生3号.txt" For Input As #4
Do Until EOF(4)
Input #4, a1, a2, a3, a4
year = a1
age = a2
m3(year, age) = a3
f3(year, age) = a4
Loop
Close #4
Open "c:/eli/gdata/共済3号.txt" For Input As #5
Do Until EOF(5)
Input #5, a1, a2, a3, a4
year = a1
age = a2
m5(year, age) = a3
f5(year, age) = a4
Loop
Close #5
Open "c:/eli/gdata/国民年金.txt" For Input As #6
Do Until EOF(6)
Input #6, a1, a2, a3, a4
year = a1
age = a2
m1(year, age) = a3
f1(year, age) = a4
Loop
Close #6
n = 1
Open "c:/eli/data/被保険者.txt " For Input As #7
Do Until EOF(7)
Input #7, a1
data(n) = a1
n = n + 1
Loop
Close #7
For n = 2 To 16
j = 1 + 9 * (n - 1)
year = data(j) - 2000
z1 = 0
For age = 20 To 60
z1 = z1 + m1(year, age) + f1(year, age)
Next
Debug.Print 77, year, Int(z1), 100 * data(j + 2)
Next
For n = 2 To 16
j = 1 + 9 * (n - 1)
year = data(j) - 2000
z1 = 0
For age = 15 To 69
z1 = z1 + m2(year, age) + f2(year, age)
Next
Debug.Print year, Int(z1), 100 * data(j + 4)
Next

For n = 2 To 16
j = 1 + 9 * (n - 1)
year = data(j) - 2000
z1 = 0
For age = 15 To 69
z1 = z1 + m4(year, age) + f4(year, age)
Next
Debug.Print year, Int(z1), 100 * data(j + 5)
Next


For n = 2 To 16
j = 1 + 9 * (n - 1)
year = data(j) - 2000
z1 = 0
For age = 20 To 60
z1 = z1 + m3(year, age) + f3(year, age)
Next
Debug.Print year, Int(z1), 100 * data(j + 7)
Next


For n = 2 To 16
j = 1 + 9 * (n - 1)
year = data(j) - 2000
z1 = 0
For age = 20 To 60
z1 = z1 + m1(year, age) + f1(year, age)
Next
z2 = 0
For age = 15 To 69
z2 = z2 + m2(year, age) + f2(year, age)
Next
z4 = 0
For age = 15 To 69
z4 = z4 + m4(year, age) + f4(year, age)
Next
z3 = 0
For age = 20 To 60
z3 = z3 + m3(year, age) + f3(year, age)
Next
z5 = 0
For age = 20 To 60
z5 = z5 + m5(year, age) + f5(year, age)
Next
Debug.Print year + 2000, "&"; , Int(z1), "(", 100 * data(j + 2), ")&", Int(z2), "(", 100 * data(j + 4), ")&", Int(z4), "(", 100 * data(j + 5), ")&", Int(z3), "(", 100 * data(j + 7), ")&", Int(z5), "(", 100 * data(j + 8), ")\\"
Next








End Sub