ｇｈ １４８ - プログラム倉庫

Private Sub Command1_Click()
Dim year As Integer
Dim kisoj(0 To 99, 65 To 99) As Single
Dim kiso(0 To 99) As Single
Dim wage(1900 To 2100, 5 To 199) As Single
Dim slide(1900 To 2100, 0 To 99) As Single
Dim a1 As Single
Dim a2 As Single
Dim n As Integer
Dim g As Single
Dim p As Single
Dim g1 As Single
Dim s1 As Single
Dim rate(5 To 99) As Single
Open "c:/eli/gdata/基礎年金受給者.txt" For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3
year = a1
age = a2
kisoj(year, age) = a3
Loop
Close #1
Open "c:/eli/gdata/基礎スライド.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3
byear = a1
age = a2
slide(byear, age) = a3
Loop
Close #2
For year = 10 To 49
rate(year) = 0.85 + 0.1 * (year - 10) / 40
Next
For year = 50 To 99
rate(year) = 0.95 + 0.05 * (year - 50) / 50
Next
For year = 10 To 99
z1 = 0
For age = 65 To 99
byear = year + 2000 - age
z1 = z1 + rate(year) * 80 * slide(byear, age) * kisoj(year, age)
Next
kiso(year) = z1 / 10 ^ 4
Next
Open "c:/eli/gdata/基礎年金給付費.txt" For Output As #2
For year = 10 To 99
Write #2, year, kiso(year)
Next
Close #2
For n = 2 To 5
year = 5 * n
Debug.Print year, kiso(year), rate(year)
Next
For n = 3 To 9
year = 10 * n
Debug.Print year, kiso(year), rate(year)
Next
End Sub