How I Can Get How Many Days In A Month...?

Question

I want to know how many days in a month ...?  For example:
   
    February 1998 have 29 days
    February 1999 have 28 days

Are there function to get this information in access 97..?

Answer

From: Shamil Salakhetdinov <shamil@marta.darts.spb.ru>
Cc: ACCESS-L <ACCESS-L@PEACH.EASE.LSOFT.COM>
Subject: Re: Re: How I Can Get How Many Days In A Month..?
Date: 19 February 1999 19:21

Here is the most (?) effective solution:

Public Function GetMonthDays(ByVal vdat As Date) As Integer
  GetMonthDays = Day(DateSerial(Year(vdat), Month(vdat) + 1, 0))
End Function

Shamil