労働力率 - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a(1 To 500) As Single
Dim m As Single
Dim n As Single
Dim s As Single
Dim mrate(1 To 4, 1 To 11) As Single
Dim frate(1 To 4, 1 To 11) As Single
Dim drate(1 To 4, 1 To 11) As Single
Dim mrourate(1 To 99, 15 To 69) As Single
Dim frourate(1 To 99, 15 To 69) As Single
Dim drourate(1 To 99, 15 To 69) As Single
Dim year As Single

n = 1
Open "c:/eli/data/労働力率.txt" For Input As #1
Do Until EOF(1)
Input #1, a1
a(n) = a1
n = n + 1
Loop
Close #1
For n = 1 To 11
mrate(1, n) = a(8 * (n - 1) + 1)
mrate(2, n) = a(8 * (n - 1) + 2)
mrate(3, n) = a(8 * (n - 1) + 3)
mrate(4, n) = a(8 * (n - 1) + 4)
Next
For n = 1 To 11
frate(1, n) = a(88 + 8 * (n - 1) + 1)
frate(2, n) = a(88 + 8 * (n - 1) + 2)
frate(3, n) = a(88 + 8 * (n - 1) + 3)
frate(4, n) = a(88 + 8 * (n - 1) + 4)
Next
For n = 1 To 11
drate(1, n) = a(176 + 8 * (n - 1) + 1)
drate(2, n) = a(176 + 8 * (n - 1) + 2)
drate(3, n) = a(176 + 8 * (n - 1) + 3)
drate(4, n) = a(176 + 8 * (n - 1) + 4)
Next
For year = 6 To 11
For age = 15 To 69
n1 = (year - 6) / 6
n2 = Int((age - 10) / 5)
mrourate(year, age) = mrate(1, n2) + n1 * (mrate(2, n2) - mrate(1, n2))
frourate(year, age) = frate(1, n2) + n1 * (frate(2, n2) - frate(1, n2))
drourate(year, age) = drate(1, n2) + n1 * (drate(2, n2) - drate(1, n2))
Next
Next

For year = 12 To 17
For age = 15 To 69
n1 = (year - 12) / 6
n2 = Int((age - 10) / 5)
mrourate(year, age) = mrate(2, n2) + n1 * (mrate(3, n2) - mrate(2, n2))
frourate(year, age) = frate(2, n2) + n1 * (frate(3, n2) - frate(2, n2))
drourate(year, age) = drate(2, n2) + n1 * (drate(3, n2) - drate(2, n2))
Next
Next
For year = 18 To 29
For age = 15 To 69
n1 = (year - 18) / 12
n2 = Int((age - 10) / 5)
mrourate(year, age) = mrate(3, n2) + n1 * (mrate(4, n2) - mrate(3, n2))
frourate(year, age) = frate(3, n2) + n1 * (frate(4, n2) - frate(3, n2))
drourate(year, age) = drate(3, n2) + n1 * (drate(4, n2) - drate(3, n2))
Next
Next
For year = 30 To 99
For age = 15 To 69
n2 = Int((age - 10) / 5)
mrourate(year, age) = mrate(4, n2)
frourate(year, age) = frate(4, n2)
drourate(year, age) = drate(4, n2)
Next
Next

Open "c:/eli/gdata/労働力率.txt" For Output As #11
For year = 6 To 99
For age = 15 To 69
Write #11, year, age, mrourate(year, age), frourate(year, age), drourate(year, age)
Next
Next
Close #11


End Sub