How to determine the next specified day’s date.
To determine next Thursday’s date:
Dim dt as Date dt = NextXDay(vbThursday)
And the function:
Function NextXDay(ByVal vbDay As Integer) As Date Dim newdate As Date newdate = Date + 1 NextXDay = newdate + (vbDay - DatePart("w", newdate)) End Function
David Gregory Medina
Post created by: David Gregory Medina