intDay = DatePart("w",now(),vbSunday)
select case intDay
case 1
strDay = "Sunday"
case 2
strDay = "Monday"
case 3
strDay = "Tuesday"
case 4
strDay = "Wednesday"
case 5
strDay = "Thursday"
case 6
strDay = "Friday"
case 7
strDay = "Saturday"
end select
msgbox strday
It`s a bit long but it works. For the name of the month you can use:
monthname(Month(now()))