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

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim a(1 To 12, 1 To 3) As Single
Dim b(1 To 12, 1 To 3) As Single
Dim x(1 To 12) As Single
Dim y(1 To 12) As Single
Dim mw(15 To 64) As Single
Dim fw(15 To 64) As Single
Dim year As Single
Dim age As Single
Open "c:/kirakira/data/賃金基本構造.txt " For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3, a4, a5, a6, a7
n = a1
a(n, 1) = a2
a(n, 2) = a3
a(n, 3) = a4
b(n, 1) = a5
b(n, 2) = a6
b(n, 3) = a7
Loop
Close #1
For n = 1 To 12
x(n) = 12 * a(n, 1) + a(n, 3)
y(n) = 12 * b(n, 1) + b(n, 3)
Debug.Print n, x(n), y(n)
Next
age = 15
mw(age) = x(1)
fw(age) = y(1)
age = 16
mw(age) = x(1)
fw(age) = y(1)
age = 17
mw(age) = x(1)
fw(age) = y(1)
age = 18
mw(age) = x(2)
fw(age) = y(2)
age = 19
mw(age) = x(2)
fw(age) = y(2)
age = 20
n1 = (age - 7) / 5
n2 = Int(n1)
n3 = n2 + 1
mw(age) = x(n2) + (n1 - n2) * (x(n3) - x(n2))
fw(age) = x(n2) + (n1 - n2) * (x(n3) - x(n2))
age = 21
n1 = (age - 7) / 5
n2 = Int(n1)
n3 = n2 + 1
mw(age) = x(n2) + (n1 - n2) * (x(n3) - x(n2))
fw(age) = x(n2) + (n1 - n2) * (x(n3) - x(n2))
For age = 22 To 64
n1 = (age - 7) / 5
n2 = Int(n1)
n3 = n2 + 1
mw(age) = x(n2) + (n1 - n2) * (x(n3) - x(n2))
fw(age) = x(n2) + (n1 - n2) * (x(n3) - x(n2))
Debug.Print age, n1, n2, n3
Next
mz = mw(20) + 0.5 * (mw(21) - mw(20))
fz = fw(20) + 0.5 * (fw(21) - fw(20))
For age = 15 To 64
mw(age) = mw(age) / mz
fw(age) = fw(age) / fz
Next
Open "c:/kirakira/gdata/賃金標準報酬指数.txt " For Output As #3
For age = 15 To 64
Write #3, age, mw(age), fw(age)
Next
Close #3
End Sub