０７ BS - プログラム倉庫

Private Sub Command1_Click()
Dim year As Single
Dim age As Single
Dim mrate(8 To 99, 15 To 69) As Single
Dim frate(8 To 99, 15 To 69) As Single
Dim mx(1996 To 2007, 15 To 100) As Single
Dim fx(1996 To 2007, 15 To 100) As Single
Open "c:/bs/data/男子雇用.txt " For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13
age = a1
mx(1996, age) = a2
mx(1997, age) = a3
mx(1998, age) = a4
mx(1999, age) = a5
mx(2000, age) = a6
mx(2001, age) = a7
mx(2002, age) = a8
mx(2003, age) = a9
mx(2004, age) = a10
mx(2005, age) = a11
mx(2006, age) = a12
mx(2007, age) = a13
Loop
Close #1
Open "c:/bs/data/女子雇用.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13
age = a1
fx(1996, age) = a2
fx(1997, age) = a3
fx(1998, age) = a4
fx(1999, age) = a5
fx(2000, age) = a6
fx(2001, age) = a7
fx(2002, age) = a8
fx(2003, age) = a9
fx(2004, age) = a10
fx(2005, age) = a11
fx(2006, age) = a12
fx(2007, age) = a13
Loop
Close #2

year = 8
mrate(year, 15) = mx(2007, 15)
For age = 16 To 69
mrate(year, age) = mx(2007, age - 1) * mx(2007, age) / mx(2006, age - 1)
Debug.Print age, mrate(year, age)
Next
year = 9
mrate(year, 15) = mx(2007, 15)
mrate(year, 16) = mx(2007, 16)
For age = 17 To 69
mrate(year, age) = mx(2007, age - 2) * mx(2007, age) / mx(2006, age - 2)
Next
For year = 10 To 99
mrate(year, 15) = mx(2007, 15)
For age = 16 To 69
mrate(year, age) = mrate(year - 1, age - 1) * mrate(year - 1, age) / mrate(year - 2, age - 1)
Next
Next
year = 8
frate(year, 15) = fx(2007, 15)
For age = 16 To 69
frate(year, age) = fx(2007, age - 1) * fx(2007, age) / fx(2006, age - 1)
Debug.Print age, frate(year, age)
Next
year = 9
frate(year, 15) = fx(2007, 15)
frate(year, 16) = fx(2007, 16)
For age = 17 To 69
frate(year, age) = fx(2007, age - 2) * fx(2007, age) / fx(2006, age - 2)
Next
For year = 10 To 99
frate(year, 15) = fx(2007, 15)
For age = 16 To 69
frate(year, age) = frate(year - 1, age - 1) * frate(year - 1, age) / frate(year - 2, age - 1)
Next
Next
For year = 8 To 99
For age = 15 To 69
mrate(year, age) = 0.01 * mrate(year, age)
frate(year, age) = 0.01 * frate(year, age)
Next
Next

Open "c:/bs/gdata/被用者率.txt " For Output As #3
For year = 8 To 99
For age = 15 To 69
Write #3, year, age, mrate(year, age), frate(year, age)
Next
Next
Close #3



End Sub