DIG DIG - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim rev(5 To 99) As Single
Dim zrev(0 To 105) As Single
Dim rou(5 To 99) As Single
Dim tu(5 To 99) As Single
Dim kyo(5 To 99) As Single
Dim iz(5 To 99) As Single
Dim toku(5 To 99) As Single
Dim year As Single
Dim kyu(5 To 105) As Single
Dim koku(5 To 105) As Single
Dim zkyo(5 To 105) As Single
Dim gen(5 To 105) As Single
Dim age As Single
Open "c:/dig/gdata/支払保険料.txt " For Input As #5
Do Until EOF(5)
Input #5, a1, a2
year = a1
rev(year) = a2
Loop
Close #5
Open "c:/dig/gdata/老齢年金受給額.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2
year = a1
rou(year) = a2
Loop
Close #2
Open "c:/dig/gdata/通算年金受給額.txt " For Input As #3
Do Until EOF(3)
Input #3, a1, a2
year = a1
tu(year) = a2
Loop
Close #3
Open "c:/dig/gdata/遺族年金受給額.txt " For Input As #5
Do Until EOF(5)
Input #5, a1, a2
year = a1
iz(year) = a2
Loop
Close #3
Open "c:/dig/gdata/基礎年金拠出金.txt " For Input As #4
Do Until EOF(4)
Input #4, a1, a2
year = a1
kyo(year) = a2
Loop
Close #4
Open "c:/dig/gdata/特別支給.txt " For Input As #7
Do Until EOF(7)
Input #7, a1, a2
year = a1
toku(year) = a2
Loop
Close #7
Open "c:/dig/gdata/現役遺族年金受給額.txt " For Input As #17
Do Until EOF(17)
Input #17, a1, a2
year = a1
gen(year) = a2
Loop
Close #17

Open "c:/dig/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
koku(year) = a5
kyu(year) = a9
zkyo(year) = a10
Loop
Close #41
For year = 10 To 99
Debug.Print year, rou(year) + tu(year) + iz(year) + gen(year), kyu(year)
Next



End Sub