保険 - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim m2(0 To 99, 15 To 69) As Single
Dim f2(0 To 99, 15 To 69) As Single
Dim g(0 To 99) As Single
Dim rate(0 To 99) As Single
Dim rev(0 To 99) As Single
Dim mw(15 To 69) As Single
Dim fw(15 To 69) As Single
Dim mwage(0 To 99, 15 To 69) As Single
Dim fwage(0 To 99, 15 To 69) As Single
Dim year As Single
Dim age As Single
Open "c:/kirakira/gdata/保険料.txt " For Input As #1
Do Until EOF(1)
Input #1, a1, a2
year = a1
rate(year) = a2
Loop
Close #1
Open "c:/kirakira/data/賃金報酬指数.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3
age = a1
mw(age) = a2
fw(age) = a3
Loop
Close #2
Open "c:/kirakira/gdata/厚生年金被保険者.txt " For Input As #5
Do Until EOF(5)
Input #5, a1, a2, a3, a4
year = a1
age = a2
m2(year, age) = a3
f2(year, age) = a4
Loop
Close #5
g(0) = 1
For year = 1 To 99
g(year) = (1 + 0.021) * g(year - 1)
Next
For year = 0 To 99
For age = 15 To 69
mwage(year, age) = 240 * g(year) * mw(age)
fwage(year, age) = 210 * g(year) * fw(age)
Next
Next
year = 0
For year = 0 To 99
z1 = 0
For age = 15 To 69
z1 = z1 + rate(year) * mwage(year, age) * m2(year, age) / 100
z1 = z1 + rate(year) * fwage(year, age) * f2(year, age) / 100
Next
rev(year) = z1 / 10 ^ 4
Next
Open "c:/kirakira/gdata/支払保険料.txt " For Output As #4
For year = 0 To 99
Write #4, year, rev(year)
Next
Close #4
For n = 1 To 5
year = 5 * n
Debug.Print year, rev(year)
Next
End Sub