DIG ９ - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim mh(0 To 99, 15 To 69) As Single
Dim fh(0 To 99, 15 To 69) As Single
Dim m4(0 To 99, 15 To 69) As Single
Dim f4(0 To 99, 15 To 69) As Single
Dim x1(0 To 150) As Single
Dim x2(0 To 150) As Single
Dim x3(0 To 150) As Single
Dim x4(0 To 150) As Single
Dim year As Single
Dim age As Single
Dim mrate(15 To 69) As Single
Dim frate(15 To 69) As Single
Dim data4(0 To 120) 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
mh(year, age) = a3
fh(year, age) = a4
Loop
Close #1
age = 15
Open "c:/dig/data/厚生3号.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3
x1(age) = a1
x2(age) = a2
age = age + 1
Loop
Close #2
age = 15
Open "c:/dig/data/共済3号.txt " For Input As #4
Do Until EOF(4)
Input #4, a1, a2, a3, a4, a5, a6, a7, a8, a9
x3(age) = a1 + a3 + a5
x4(age) = a2 + a4 + a6
age = age + 1
Loop
Close #4
n = 1
Open "c:/dig/gdata/被保険者.txt " For Input As #7
Do Until EOF(7)
Input #7, a1, a2, a3, a4, a5, a6
year = a1
data4(year) = a5
Loop
Close #7

a1 = 0
a2 = 0
For age = 15 To 69
mrate(age) = x3(age) / (x1(age) + x3(age))
frate(age) = x4(age) / (x2(age) + x4(age))
Next
For year = 8 To 24
For age = 15 To 69
pRate = 1 + 0.2 * (year - 8) / 17
m4(year, age) = mrate(age) * mh(year, age) / pRate
f4(year, age) = frate(age) * fh(year, age) / pRate
Next
Next
For year = 25 To 99
For age = 15 To 69
m4(year, age) = mrate(age) * mh(year, age) / 1.2
f4(year, age) = frate(age) * fh(year, age) / 1.2
Next
Next
Open "c:/dig/gdata/共済年金被保険者.txt " For Output As #3
For year = 5 To 99
For age = 15 To 69
Write #3, year, age, m4(year, age), f4(year, age)
Next
Next
Close #3
For year = 10 To 99
z1 = 0
For age = 15 To 69
z1 = z1 + m4(year, age)
z1 = z1 + f4(year, age)
Next
Debug.Print year, ",", Int(z1), ",", data4(year)
Next
End Sub