Dim today As DateTime = DateTime.Today' Find the second thursday of the monthDim secondThursday As DateTime = Enumerable.Range(8, 7) _ .Select(Function(dayIdx) New DateTime(today.Year, today.Month, dayIdx)) _ .Where(Function(theDate) theDate.DayOfWeek = DayOfWeek.Thursday) _ .Single()
This Linq query should give you what you need.
Open in new window