Sorry I didnt get back sooner, but Smart has it right. If you are going to run the code to get the proper date, assign it to a varible and then run the comparisons against the varible.
Like Smart posted
Dim Whattime as date
Dim Whichday as string
Whichday = format([Yourdatetimefield],"dddd"...