７７ DIG - プログラム倉庫

Private Sub Command1_Click()
Dim jyo1(1900 To 2100) As Single
Dim jyo2(1900 To 2100) As Single
Dim jyo3(1900 To 2100) As Single
Dim jyo4(1900 To 2100) As Single
Dim jyo(1900 To 2100) As Single
Dim byear As Single
Dim year As Single
Dim age As Single
Open "c:/dig/data/乗率.txt " For Input As #6
Do Until EOF(6)
Input #6, a1, a2, a3, a4, a5
byear = a1
jyo1(byear) = a2
jyo2(byear) = a3
jyo3(byear) = a4
jyo4(byear) = a5
Loop
Close #6
For byear = 1900 To 1925
jyo1(byear) = jyo1(1926)
Next
For byear = 1946 To 2100
jyo1(byear) = jyo1(1946)
Next
For byear = 1900 To 1945
jyo(byear) = jyo1(byear)
Next
For byear = 1946 To 1985
jyo(byear) = jyo1(byear) / (1 + 0.05 * (byear - 1945) / 40)
Next
For byear = 1986 To 2099
jyo(byear) = jyo1(byear) / 1.05
Next
Open "c:/dig/gdata/調整乗率.txt " For Output As #5
For byear = 1900 To 2099
Write #5, byear, jyo(byear)
Next
Close #5
For byear = 1900 To 2099
Debug.Print byear, jyo(byear)
Next
End Sub