Public Function LastDayOfWeekInMonth( _ ByVal vYear As Variant _ , ByVal vMonth As Variant _ , ByVal vDayOfWeek As Variant _ ) As Variant
Weekday(#1/31/96#) = vbWednesday LastDayOfWeekInMonth(1996, 1, vbWednesday) = #1/31/96# LastDayOfWeekInMonth(1996, 1, vbMonday) = #1/29/96# LastDayOfWeekInMonth(1996, 1, vbThursday) = #1/25/96#See also:
FirstDayOfWeekInMonth Function NthDayOfWeekInMonth Function LastDayOfMonth Function LastWeekdayOfMonth Function LastDayOfPeriod FunctionvYear: Must use the full four-digit year; cannot use 96, for example, to mean 1996. Function returns Null if vYear is Null or cannot be interpreted as an integer number.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.