'日付クラス
class paidate
dim year
dim month
dim day
end class

'日付を比較する関数
function paidatecompare(d1,d2)
if d1.year > d2.year then
paidatecompare = 1
elseif d1.year < d2.year thenpaidatecompare = -1
elseif d1.month > d2.month then
...(省略)...
else
paidatecompare = 0
end if
end function