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:
- 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