ｇｈｊｋｇｈｊ - プログラム倉庫

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(5 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
Dim zrev(0 To 105) As Single
rate(5) = 14.288
For year = 6 To 99
rate(year) = rate(year - 1) + 0.354
If rate(year) > 18.3 Then rate(year) = 18.3
Next
age = 15
Open "c:/eli/data/標準報酬.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2
mw(age) = a1
fw(age) = a2
age = age + 1
Loop
Close #2
Open "c:/eli/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(10) = 1.08
For year = 11 To 99
g(year) = (1 + 0.025) * g(year - 1)
Next
For year = 10 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 = 10 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:/eli/gdata/支払保険料.txt " For Output As #4
For year = 10 To 99
Write #4, year, rev(year)
Next
Close #4
Open "c:/nagoya/data/財政検証.txt " For Input As #41
Do Until EOF(41)
Input #41, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11
year = a1 - 2000
zrev(year) = a4
Loop
Close #41
For year = 10 To 99
Debug.Print year, rev(year), zrev(year)
Next
End Sub