tmp=HCreturn(Year(date))
if tmp>0 then
msgbox tmp & " days to the event!"
elseif tmp < 0 then
msgbox "deadline"
else
msgbox "event has been and gone"
end if

function HCreturn(aar)
bog=cdate("27-04-2008")
HCreturn=datediff("d",date,bog)
end function