60 xcd - プログラム倉庫

Private Sub Command1_Click()
Dim year As Single
Dim byear As Single
Dim grate(5 To 99) As Single
Dim rate(1900 To 2100, 60 To 99) As Single
Dim g As Single
Dim p As Single
g = 0.025
p = 0.01
grate(5) = 1
For year = 6 To 99
grate(year) = (1 + g) * grate(year - 1)
Next
For byear = 1940 To 2034
year = byear + 65 - 2000
For age = 60 To 65
rate(byear, age) = grate(year)
Next
For age = 66 To 99
rate(byear, age) = (1 + p) * rate(byear, age - 1)
Next
Next
For byear = 1906 To 1939
age = 2005 - byear
rate(byear, age) = grate(5)
ageage = age
For age = ageage + 1 To 99
rate(byear, age) = (1 + p) * rate(byear, age - 1)
Next
Next

Open "c:/nagoya/gdata/報酬.txt" For Output As #8
For byear = 1900 To 2100
For age = 60 To 99
Write #8, byear, age, rate(byear, age)
Next
Next
Close #8


End Sub