use the format function.
function comparetimeanddate(strtimedategiven as string) as boolean
strNow = now
strDateNow=format (strnow, MM/DD/YY)
strTimeNow=Format(strnow, HH:MM)
strDategiven=format (strtimedategiven, MM/DD/YY)
strTimegiven=Format(strtimedategiven, HH:MM)
if strtimenow=strtimegiven and strdatenow=strdategiven then
bolequal=true
end if
comparetimeanddate=bolequal
end function
i made that all up. but it should be close i think