Visual Basic.NET
Visual Basic.NET

Find date of 2nd Thursday of each month

I need to calculate a date at the beginning of each month which represents the 2nd Thursday of that month. How can I do that?

T HoecherlDeveloperAsked: 2017-04-03

Who is Participating?

Experts Exchange Solution brought to you by

Enjoy your complimentary solution view.

Get this solution by purchasing an Individual license! Start your 7-day free trial.

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

LVL 86

Mike TomlinsonHigh School Computer Science, Computer Applications, Digital Design, and Mathematics TeacherCommented: 2017-04-03

Here's a quick example:

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim thursday As DateTime = SecondThursday(4, 2017)
        Debug.Print(thursday)
    End Sub

    Private Function SecondThursday(ByVal month As Integer, ByVal year As Integer) As DateTime
        Dim dt As New DateTime(year, month, 1)
        ' find the first Thursday
        While dt.DayOfWeek <> DayOfWeek.Thursday
            dt = dt.AddDays(1)
        End While
        dt = dt.AddDays(7) ' jump to the second Thursday
        Return dt
    End Function

Open in new window

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial

LVL 65

Fernando SotoRetiredCommented: 2017-04-04

Hi thoecherl;

This Linq query should give you what you need.

Dim today As DateTime = DateTime.Today
' Find the second thursday of the month
Dim 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()

Open in new window