16 変形厚生年金被保険者 - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim m2(0 To 99, 15 To 69) As Single
Dim f2(0 To 99, 15 To 69) As Single
Dim m2by(1900 To 2100, 15 To 69) As Single
Dim f2by(1900 To 2100, 15 To 69) As Single
Dim byear As Single
Dim year As Single
Dim age As Single
Open "c:/stream/gdata/厚生年金被保険者.txt " For Input As #5
Do Until EOF(5)
Input #5, a1, a2, a3, a4
year = a1
age = a2
m2(year, age) = a3
f2(year, age) = a4
Loop
Close #5
For byear = 1900 To 2100
For age = 15 To 69
year = byear + age - 2000
h = 0
If year > -1 Then h = h + 1
If year < 100 Then h = h + 1
If h = 2 Then m2by(byear, age) = m2(year, age)
If h = 2 Then f2by(byear, age) = f2(year, age)
Next
Next
Open "c:/stream/gdata/変形厚生年金被保険者.txt " For Output As #4
For byear = 1900 To 2100
For age = 15 To 69
Write #4, byear, age, m2by(byear, age), f2by(byear, age)
Next
Next
Close #4
End Sub