ｂｂｂ - プログラム倉庫

Private Sub Command1_Click()
Dim year As Single
Dim byear As Single
Dim age As Single
Dim dan(1 To 12, 0 To 9) As Single
Dim rate(1 To 10, 0 To 9) As Single
Dim m2(0 To 99, 15 To 69) As Single
Dim f2(0 To 99, 15 To 69) As Single
Dim minx(15 To 64, 1 To 45) As Single
Dim h As Single
Open "c:/kirakira/data/男子被保険者.txt" For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11
n = a1
dan(n, 0) = a2
dan(n, 1) = a3
dan(n, 2) = a4
dan(n, 3) = a5
dan(n, 4) = a6
dan(n, 5) = a7
dan(n, 6) = a8
dan(n, 7) = a9
dan(n, 8) = a10
dan(n, 9) = a11
Debug.Print n
Loop
Close #1
Open "c:/kirakira/gdata/厚生年金被保険者.txt " For Input As #5
Do Until EOF(5)
Input #5, a1, a2, a3, a4
year = a1
age = a2
m2(year, age) = a3
f2(year, age) = a4
Loop
Close #5
For n = 1 To 10
For m = 1 To 9
rate(n, m) = 0.2 * dan(n, m) / dan(n, 0)
Next
Next
For age = 16 To 64
For car = 1 To 44
year = 0
n = Int(age / 5) - 2
m = Int(car / 5) + 1
minx(age, car) = rate(n, m) * f2(year, age)
Next
Next
Open "c:/kirakira/gdata/男子被保険者.txt " For Output As #4
For age = 15 To 64
For car = 1 To 45
Write #4, age, car, minx(age, car)
Next
Next
Close #4
End Sub