Next Monday Date using VBA Functions

VBA Next Monday

Next Monday Date:

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

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

Method1: Get Next Monday Date using VBA Functions

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

'Method 1: Next Monday Date using Excel VBA Functions
Sub VBA_Find_Next_Monday_Method1()
    
    Dim dNext_Monday As Date

    dNext_Monday = DateAdd("d", -Weekday(Now) + 9, Now)

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

Method2: Get Next Monday Date using VBA Functions

Here is the second method to find Next Monday date.

'Method 2: Next Monday Date using Excel VBA Functions
Sub VBA_Find_Next_Monday_Method2()
    
    'Variable Declaration
    Dim dNext_Monday As Date
    
    dNext_Monday = Now + (9 - Weekday(Now))

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

Method3: Get Next Monday Date using VBA Functions

The third method to find Next Monday date.

'Method 3: Next Monday Date using Excel VBA Functions
Sub VBA_Find_Next_Monday_Method3()

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

Output Screenshot

You can find following output screenshot of above specified macros.
Next Monday Date

Instructions:

  • Open Visual Basic Editor by clicking Alt +F11
  • Goto code window by clicking F7
  • Copy any of the above specified procedure or macro
  • Paste above copied code in code window
  • Run macro by clicking F5 or Run command
  • You can see ouput on the screen
  • Find specified output screenshot above.

Related VBA Functions used in this article:

We have used DateAdd, Now, Weekday and Format VBA functions. Click on below specified links to learn more about VBA functions.

VBA DateAdd Function VBA Now Function VBA WeekDay Function VBA Format Function





Leave a Comment

Your email address will not be published. Required fields are marked *