Next Thursday Date using Excel VBA Functions

Next Thursday Date using Excel VBA Functions Now, DateAdd,Format and WeekDay. We have different methods and ways to find Next Thursday date. You can find below three specified macros or procedures to find Next Thursday date using VBA functions. i.e Now, DateAdd, WeekDay and Format.

We are trying to find Next Thursday date based on current or today’s date. Lets say today’s date is 11th Dec 2018 and weekday is Tuesday then upcoming date of Thursday should be 20th Dec 2018 and weekday is Thursday. In this tutorial we have explained three methods to find Next Thursday date.

Table of Contents:

Objective
Method1: Get Next Thursday Date using VBA Functions
Method2: Get Next Thursday Date using VBA Functions
Method3: Get Next Thursday Date using VBA Functions
Instructions to Run VBA Macro Code
Other Useful Resources

Method1: Get Next Thursday Date using VBA Functions

Let us see the first method to find Next Thursday date.

'Method 1: Next Thursday Date using Excel VBA Functions
Sub VBA_Find_Next_Thursday_Method1()
    
    Dim dNext_Thursday As Date

    dNext_Thursday = DateAdd("d", -Weekday(Now) + 12, Now)

    MsgBox "If today's date is '" & Format(Now, "DD MMM YYYY") & "' then" & vbCrLf & _
    " Next Thursday Date is : " & Format(dNext_Thursday, "DD MMM YYYY"), vbInformation, "Next Thursday Date"
    
End Sub

Method2: Get Next Thursday Date using VBA Functions

Here is the second method to find Next Thursday date.

'Method 2: Next Thursday Date using Excel VBA Functions
Sub VBA_Find_Next_Thursday_Method2()
    
    'Variable Declaration
    Dim dNext_Thursday As Date
    
    dNext_Thursday = Now + (12 - Weekday(Now))

    MsgBox "If today's date is '" & Format(Now, "DD MMM YYYY") & "' then" & vbCrLf & _
    " Next Thursday Date is : " & Format(dNext_Thursday, "DD MMM YYYY"), vbInformation, "Next Thursday Date"
    
End Sub

Method3: Get Next Thursday Date using VBA Functions

The third method to find Next Thursday date.

'Method 3: Next Thursday Date using Excel VBA Functions
Sub VBA_Find_Next_Thursday_Method3()

    Dim dNext_Thursday As Date
     
    dNext_Thursday = DateAdd("ww", 1, Now - (Weekday(Now, vbThursday) - 8))
    
    
    MsgBox "If today's date is '" & Format(Now, "DD MMM YYYY") & "' then" & vbCrLf & _
    " Next Thursday Date is : " & Format(dNext_Thursday, "DD MMM YYYY"), vbInformation, "Next Thursday Date"
    
    
End Sub

Output screenshot: You can find following output screenshot of above specified macros.
Next Thursday Date