maximum days in a month 1

[Bignewbie]

Hi Guys!

is there a fast way of getting the maximum number of days in a given month? i looked at the faq section for this but its not there. this should be able to tell whether its a leap year or not, thereby adjusting the maximum days in february.


Thanks!


biggie



The Man of Tomorrow is forged by his battles today.

 

[onpnt]

thread333-732176

should help

___________________________________________________________________
[sub]

http://www.onpnt.com

The answer to your ??'s may be closer then you think.
Check out Tek-Tips knowledge bank by clicking the FAQ link at the top of the page[/sub]

 

[Bignewbie]

That's exactly what i need! thanks! I gave you a star for giving me a link to it. It really helped!



thanks,

biggie




The Man of Tomorrow is forged by his battles today.

 

[vongrunt]

Small is beautiful, right?

Function monthDays( iMonth, iYear )
	Dim dDate: dDate = DateSerial( iYear, iMonth, 1 )
	monthDays = DateDiff( "d", dDate, DateAdd("m", 1, dDate) )
End Function