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

Function makebirth(year As Single, age As Single, data02) As Single
Dim n1 As Single
Dim n2 As Single
Dim n3 As Single
n1 = year / 5
n2 = Int(n1)
If n2 > 11 Then n2 = 11
n3 = n2 + 1
If n3 > 11 Then n3 = 11
makebirth = data02(n2, age) + (n1 - n2) * (data02(n3, age) - data02(n2, age))
End Function
Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim a4 As Single
Dim a5 As Single
Dim a6 As Single
Dim a7 As Single
Dim year As Single
Dim age As Single
Dim data02(1 To 11, 15 To 49) As Single
Dim birth(5 To 99, 15 To 49) As Single
Open "c:/hagetaka/data/出生率1.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3, a4, a5, a6, a7
age = a1
data02(1, age) = a2
data02(2, age) = a3
data02(3, age) = a4
data02(4, age) = a5
data02(5, age) = a6
data02(6, age) = a7
Loop
Close #2
Open "c:/hagetaka/data/出生率2.txt " For Input As #3
Do Until EOF(3)
Input #3, a1, a2, a3, a4, a5, a6
age = a1
data02(7, age) = a2
data02(8, age) = a3
data02(9, age) = a4
data02(10, age) = a5
data02(11, age) = a6
Loop
Close #3
For year = 5 To 99
For age = 15 To 49
birth(year, age) = makebirth(year, age, data02)
Next
Next
Open "c:/hagetaka/gdata/出生率.txt" For Output As #102
For year = 5 To 99
For age = 15 To 49
Write #102, year, age, birth(year, age)
Next
Next
Close #102
End Sub