ｇｈｊｋ - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim mh(0 To 99, 15 To 69) As Single
Dim fh(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 m2(0 To 99, 15 To 69) As Single
Dim f2(0 To 99, 15 To 69) As Single
Dim year As Single
Dim age As Single
Open "c:/hagetaka/gdata/被用者.txt " For Input As #108
Do Until EOF(108)
Input #108, a1, a2, a3, a4
year = a1
age = a2
mh(year, age) = a3
fh(year, age) = a4
Loop
Close #108
Open "c:/hagetaka/gdata/共済年金被保険者.txt " For Input As #109
Do Until EOF(109)
Input #109, a1, a2, a3, a4
year = a1
age = a2
m4(year, age) = a3
f4(year, age) = a4
Loop
Close #109
For year = 0 To 99
For age = 15 To 69
m2(year, age) = mh(year, age) - m4(year, age)
f2(year, age) = fh(year, age) - f4(year, age)
Next
Next
Open "c:/hagetaka/gdata/厚生年金被保険者.txt " For Output As #110
For year = 5 To 99
For age = 15 To 69
Write #110, year, age, m2(year, age), f2(year, age)
Next
Next
Close #110
For year = 5 To 99
z1 = 0
For age = 16 To 69
z1 = z1 + m2(year, age) + f2(year, age)
Next
Debug.Print year, z1
Next


End Sub