23 共済３号被保険者 - プログラム倉庫

Function frp(age As Single, fc2, fc3, fc4) As Single
Dim n As Single
n = Int(age / 5) - 3
frp = fc3(n) / (fc2(n) + fc4(n))
End Function
Function s3(year As Single, f3) As Single
Dim s1 As Single
Dim age As Integer
s1 = 0
For age = 16 To 60
s1 = s1 + f3(year, age)
Next
s3 = s1
End Function
Private Sub Command1_Click()
Dim year As Single
Dim age As Single
Dim m2(-5 To 99, 16 To 65) As Single
Dim f2(-5 To 99, 16 To 65) As Single
Dim m3(-5 To 99, 16 To 65) As Single
Dim f3(-5 To 99, 16 To 65) As Single
Dim m4(-5 To 99, 16 To 65) As Single
Dim f4(-5 To 99, 16 To 65) As Single
Dim nen(1 To 2, 15 To 110) As Integer
Dim fc2(1 To 8) As Single
Dim fc3(1 To 8) As Single
Dim fc4(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:/simple/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
fc2(1) = 2047
fc2(2) = 3151
fc2(3) = 2774
fc2(4) = 2523
fc2(5) = 2577
fc2(6) = 3257
fc2(7) = 2519
fc2(8) = 2233
fc3(1) = 248
fc3(2) = 1198
fc3(3) = 1822
fc3(4) = 1900
fc3(5) = 1899
fc3(6) = 2264
fc3(7) = 1580
fc3(8) = 1064
fc4(1) = 205
fc4(2) = 378
fc4(3) = 437
fc4(4) = 504
fc4(5) = 544
fc4(6) = 626
fc4(7) = 412
fc4(8) = 350
For year = 0 To 99
For age = 20 To 59
f3(year, age) = m2(year, age) * frp(age, fc2, fc3, fc4)
Next
Next
Open "c:/simple/gdata/共済3号被保険者.txt" For Output As #4
For year = 0 To 99
For age = 16 To 65
Write #4, year, age, m3(year, age), f3(year, age)
Next
Next
Close #4
Dim n As Integer
For n = 1 To 5
year = 5 * n
Debug.Print year, s3(year, f3)
Next
For n = 3 To 6
year = 10 * n
Debug.Print year, s3(year, f3)
Next
End Sub