Hi


How to check that the date key 5th Sunday and is the Last
day of the month falls on Sat or Sun in VBA.

regards,
Joe

For the last part, does the last day of the month fall on a weekend,

If Weekday(DateSerial(Y, M + 1, 0), vbMonday) 5 Then

I don't understand "date key 5th Sunday".

If you mean you want to know if a given date is the 5th Sunday in a month, the
5th occurrence of any day of the week must be on or after the 29th, so given
that TheDate contains the date

If (Weekday(TheDate) = vbSunday) and (Day(TheDate) 28) Then
'it's the 5th Sunday

If, given a date, you want to know which occurrence of that weekday it is

WhichOne = (Day(TheDate)-1) \ 7 + 1

WhichOne will be a number between 1 and 5.

On Tue, 28 Sep 2004 20:38:03 -0700, "Joe"
wrote:

Hi


How to check that the date key 5th Sunday and is the Last
day of the month falls on Sat or Sun in VBA.

regards,
Joe