08 DIG - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim a(1 To 9, 1 To 4) As Single
Dim mh(0 To 99, 15 To 69) As Single
Dim fh(0 To 99, 15 To 69) As Single
Dim ms(0 To 99, 15 To 69) As Single
Dim ts(0 To 99, 15 To 69) As Single
Dim ds(0 To 99, 15 To 69) As Single
Dim mhrate(0 To 99, 15 To 69) As Single
Dim fhrate(0 To 99, 15 To 69) As Single
Dim mal(0 To 99, 15 To 69) As Single
Dim fal(0 To 99, 15 To 69) As Single
Dim mrou(0 To 99, 15 To 69) As Single
Dim trou(0 To 99, 15 To 69) As Single
Dim drou(0 To 99, 15 To 69) As Single
Dim mrate(0 To 99, 15 To 69) As Single
Dim trate(0 To 99, 15 To 69) As Single
Dim drate(0 To 99, 15 To 69) As Single
Dim data2(10 To 99) As Single
Dim data4(10 To 99) As Single
Dim year As Single
Dim age As Single
Dim data(1 To 200) As Single
Open "c:/dig/gdata/被用者率.txt " For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3, a4
year = a1
age = a2
mhrate(year, age) = a3
fhrate(year, age) = a4
Loop
Close #1
Open "c:/dig/gdata/就業者.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3, a4, a5
year = a1
age = a2
ms(year, age) = a3
ts(year, age) = a4
ds(year, age) = a5
Loop
Close #2
Open "c:/dig/gdata/アルバイト.txt " For Input As #53
Do Until EOF(53)
Input #53, a1, a2, a3, a4
year = a1
age = a2
mal(year, age) = a3
fal(year, age) = a4
Loop
Close #53
Open "c:/eli/gdata/被保険者.txt " For Input As #7
Do Until EOF(7)
Input #7, a1, a2, a3, a4, a5, a6
year = a1
data2(year) = a3
data4(year) = a5
Loop
Close #7
Dim rate(8 To 99) As Single
For year = 8 To 30
rate(year) = 0.203 + (0.326 - 0.203) * (year - 6) / 24
Next
For year = 31 To 99
rate(year) = 0.326
Next
For year = 8 To 99
For age = 15 To 69
z1 = mhrate(year, age) * ms(year, age)
mh(year, age) = 0.961 * (z1 - mal(year, age)) + rate(year) * mal(year, age)
z2 = fhrate(year, age) * (ts(year, age) + ds(year, age))
fh(year, age) = 0.961 * (z2 - fal(year, age)) + rate(year) * fal(year, age)
Next
Next
Open "c:/dig/gdata/被用者.txt " For Output As #3
For year = 8 To 99
For age = 15 To 69
Write #3, year, age, mh(year, age), fh(year, age)
Next
Next
Close #3
For year = 10 To 99
z1 = 0
For age = 15 To 69
z1 = z1 + mh(year, age) + fh(year, age)
Next
z2 = data2(year) + data4(year)
Debug.Print year, z1, z2
Next
End Sub