271 - プログラム倉庫

Private Sub Command1_Click()
Dim byear As Single
Dim mnew(1900 To 2100) As Single
Dim fnew(1900 To 2100) As Single
Dim mnew1(1900 To 2100) As Single
Dim fnew1(1900 To 2100) As Single
Dim mnew2(1900 To 2100) As Single
Dim fnew2(1900 To 2100) As Single
Dim a1 As Single
Dim a2 As Single
Open "c:/stream/gdata/男子通算新規裁定者1.txt " For Input As #1
Do Until EOF(1)
Input #1, a1, a2
byear = a1
mnew1(byear) = a2
Loop
Close #1
Open "c:/stream/gdata/女子通算新規裁定者1.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2
byear = a1
fnew1(byear) = a2
Loop
Close #2
Open "c:/stream/gdata/男子通算新規裁定者2.txt " For Input As #3
Do Until EOF(3)
Input #3, a1, a2
byear = a1
mnew2(byear) = a2
Loop
Close #3
Open "c:/stream/gdata/女子通算新規裁定者2.txt " For Input As #4
Do Until EOF(4)
Input #4, a1, a2
byear = a1
fnew2(byear) = a2
Loop
Close #4
For byear = 1950 To 1984
mnew(byear) = mnew2(byear)
fnew(byear) = fnew2(byear)
Next
For byear = 1985 To 2034
mnew(byear) = mnew1(byear)
mnew(byear) = mnew1(byear)
Next
Open "c:/stream/gdata/通算年金新規裁定者.txt " For Output As #5
For byear = 1900 To 2100
Write #5, byear, mnew(byear), fnew(byear)
Next
Close #5
End Sub