VB中 判断一个时间是否在一个时间段内

如何用代码判断一个时间是否在一个时间段内
例如判断2月8号是否在1月21号到2月21号内

如果带年就能判断
例如
dim dtFrom as date
dim dtTo as date
dim dtVar as date

dtVar = dateserial(2008,2,8)
dtFrom = dateserial(2008,1,21)
dtTo = dateserial(2008,2,21)

if dtVar >= dtFrom and dtVar<= dtTo then
'在区间
else
'不在区间
end if

private sub command1_click() dim d1 as date d1 = #9:01:00 am# if d1 >= #8:00:00 am# and d1 <= #9:30:00 am# then msgbox "在范围内！" else msgbox "不在范围内！" end if end sub