要判断一个日期previous_date与当前日期current_date时间间隔是否在一年内，
如果间隔在一年内，标志flag=Y，否则flag=N,怎么实现?

if (current_date.year - previous_date.year) <=1 then
.........
else flag = N

请高手指教一下，小女子感激不尽

自己想了一个，如下，不知有没错误？而且太复杂，有没有更好得算法？

if (current_date.year - previous_date.year) <=1 then
if (current_date.year - previous_date.year) <=1 then
if current_date.month<=previous_date.month then
if (current_date.month=previous_date.month && current_date.day>=previous_date.day) then
flag=Y
else flag=N
else flag =Y
else flag = N

if int(current_date.year/4)=current_date.year/4 and right(cstr(current_date.year),2)<>"00" then
n=366
else
n=365
end if
if current_date-previous_date>n then
flag=y
else
flag=n
end if

[此贴子已经被作者于2006-10-9 23:09:00编辑过]