This function may be a little better as it creates a date which is the
tenth of the current month.
DateSerial(Year(date()),Month(Date()),10)
What do you mean by 'create a "Month"'? Do you want a month name, a
month number, a date range from the 1st of the month to the last day of
the month, or something else?
You can use the Format function to get the month name
Format(somedate,"mmmm") or Format(SomeDate,"mmm")
You can use the MonthName function
MonthName(8) returns August
You can use DatePart to get the month number
DatePart("m",SomeDate)
'====================================================
John Spencer
Access MVP 2002-2005, 2007-2009
The Hilltop Institute
University of Maryland Baltimore County
'====================================================