Next Friday Date using VBA Functions

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

We are trying to find Next Friday 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 Friday should be 21st Dec 2018 and weekday is Friday. In this tutorial we have explained three methods to find Next Friday date.

Method1: Get Next Friday Date using VBA Functions

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

'Method 1: Next Friday Date using Excel VBA Functions
Sub VBA_Find_Next_Friday_Method1()
    
    Dim dNext_Friday As Date

    dNext_Friday = DateAdd("d", -Weekday(Now) + 13, Now)

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

Method2: Get Next Friday Date using VBA Functions

Here is the second method to find Next Friday date.

'Method 2: Next Friday Date using Excel VBA Functions
Sub VBA_Find_Next_Friday_Method2()
    
    'Variable Declaration
    Dim dNext_Friday As Date
    
    dNext_Friday = Now + (13 - Weekday(Now))

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

Method3: Get Next Friday Date using VBA Functions

The third method to find Next Friday date.

'Method 3: Next Friday Date using Excel VBA Functions
Sub VBA_Find_Next_Friday_Method3()

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

Output Screenshot: You can find following output screenshot of above specified macros.

Instructions to Run VBA Macro Code or Procedure:

You can refer the following link for the step by step instructions.

Instructions to run VBA Macro Code

Other Useful Resources:

Click on the following links of the useful resources. These helps to learn and gain more knowledge.

VBA Tutorial VBA Functions List VBA Arrays VBA Text Files VBA Tables

VBA Editor Keyboard Shortcut Keys List VBA Interview Questions & Answers Blog