d] - プログラム倉庫

Private Sub Command1_Click()
Dim year As Single
Dim age As Single
Dim m2(0 To 99, 15 To 69) As Single
Dim f2(0 To 99, 15 To 69) As Single
Dim m3(0 To 99, 15 To 69) As Single
Dim f3(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 th(1 To 8) As Single
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
Open "c:/kirakira/gdata/厚生年金被保険者.txt" For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3, a4
year = a1
age = a2
m2(year, age) = a3
f2(year, age) = a4
Loop
Close #1
Open "c:/kirakira/gdata/共済年金被保険者.txt" For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3, a4
year = a1
age = a2
m4(year, age) = a3
f4(year, age) = a4
Loop
Close #2
Dim z2(1 To 8) As Single
Dim z3(1 To 8) As Single
Dim z4(1 To 8) As Single
Dim n As Single
Dim rate(20 To 59) As Single
z2(1) = 1377
z2(2) = 3013
z2(3) = 3079
z2(4) = 2624
z2(5) = 2417
z2(6) = 2400
z2(7) = 3030
z2(8) = 2240
z4(1) = 99
z4(2) = 315
z4(3) = 383
z4(4) = 412
z4(5) = 457
z4(6) = 487
z4(7) = 554
z4(8) = 336
z3(1) = 189
z3(2) = 987
z3(3) = 1782
z3(4) = 1821
z3(5) = 1698
z3(6) = 1676
z3(7) = 2009
z3(8) = 1115
For age = 20 To 59
n = Int(age / 5) - 3
rate(age) = z3(n) / (z2(n) + z4(n))
Debug.Print age, rate(age)
Next
For year = 0 To 99
For age = 20 To 59
f3(year, age) = rate(age) * m2(year, age)
Next
Next
Open "c:/kirakira/gdata/厚生3号.txt" For Output As #3
For year = 0 To 99
For age = 20 To 59
Write #3, year, m3(year, age), f3(year, age)
Next
Next
Close #2





End Sub