'集計結果を格納するクラス
class paistatresult
dim total_money'合計金額
dim num_person'人数
dim total_age'年齢合計
dim avg_age'年齢平均
end class

'集計をする関数
sub dostat(statresult,d1,d2)
dim item
for each item in persons
if paidatecompare(d1,item.birthday)<=0 and paidatecompare(item.birthday,d2)<=0 then
...
end if
next
end sub