Public Function NextDayOfWeekOnOrAfter( _ ByVal vDate As Variant _ , ByVal vDayOfWeek As Variant _ ) As Variant
Format$(#4/15/1996#, "ddd") = "Mon" NextDayOfWeekOnOrAfter(#4/15/1996#, vbMonday) = #4/15/1996# NextDayOfWeekOnOrAfter(#4/15/1996#, vbTuesday) = #4/16/1996# NextDayOfWeekOnOrAfter(#4/15/1996#, vbFriday) = #4/19/1996# NextDayOfWeekOnOrAfter(#4/15/1996#, vbMonday) = #4/15/1996# NextDayOfWeekOnOrAfter(#4/15/1996#, vbSunday) = #4/21/1996# NextDayOfWeekOnOrAfter(#4/15/1996#, #3/31/1996#) = #4/21/1996#See also:
NextDayOfWeek Function PreviousDayOfWeekOnOrBefore Function vbSunday Property, et. al.vDate: The date whose current or next specific day of the week is returned. Function returns Null if vDate is Null or cannot be fixed up to a Date.
LastDayOfWeek = NextDayOfWeekOnOrAfter(vDate, vbSaturday)
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.