Days of the month 2

[LonnieJohnson]

I can't seem to put my finger on this one.

What is the function/code to tell how many days are in a month based on a date?

Example

Function DaysOfTheMonth(July 15, 2003) = 31 days.

ProDev, MS Access Applications
Visit me at ==>

http://www.prodev.us

Contact me at ==>lonniejohnson@prodev.us

May God bless you beyond your imagination!!!

 

[BillPower]

Hi,

This should do it for you:
Dim datDate As Date
datDate = "July 15, 2003"
MsgBox Day(DateAdd("m", 1, datDate - Day(datDate) + 1) - 1)

Bill

 

[PaulBricker]

Just for the sake of variety you can look at this one also

Day(DateSerial(Year([DateField]),Month([DateField])+1,0))

It is very much like the excellent one Bill posted.

Paul

 

[LonnieJohnson]

Thanks guys. I actually went with the dateserial. I put them both in my cool code file. Thanks again.

ProDev, MS Access Applications
Visit me at ==>

http://www.prodev.us

Contact me at ==>lonniejohnson@prodev.us

May God bless you beyond your imagination!!!