Text fields to dates

[Terri]

I have two fields. One contains a month (ex. January). The other contains a
year (ex. 2008). I would like to use these fields to develop the date for
the last day of the year and month (ex. 20080131) in a date field that can be
compared to another date. Any suggestions?

 

[DanRoss]

Here's an example you should be able to accomidate into your situation.

Dim sMonth
Dim sYear
Dim sDate

sMonth = "December"
sYear = "2008"
sDate = CDate(sMonth & " 1, " & sYear)

Debug.Print sDate ' This is the date as is.
sDate = DateAdd("M", 1, sDate)
Debug.Print sDate ' Add a month so you have the first day of the next
month
sDate = DateAdd("d", -1, sDate)
Debug.Print sDate ' Subtract a day so you have the last day of the
preceding (or selected month)

Hope this helps.