Current Sunday Date:
Current Sunday Date using Excel VBA Functions Now, DateAdd,Format and WeekDay. We have different methods and ways to find Current Week Sunday date. You can find below two specified macros or procedures to find Current week Sunday date of this week using VBA functions. i.e Date, DateAdd, WeekDay and Format.
We are trying to find current week Sunday date based on currnt or today’s date. Lets say today’s date is 13th Dec 2018 and weekday is Thursday then current date of sunday should be 9th Dec 2018 and weekday is Sunday. In this tutorial we have explained three methods to find Current week Sunday date. To avoid using time, you can replace Date with Now. Then there is no difference in output.
Method1: Get Current Week Sunday Date using VBA Functions
Let us see the first method to find current week sunday date of this week.
'Method 1: Current Week Sunday Date using Excel VBA Functions Sub VBA_Find_Current_Sunday_Method1() 'Variable Declaration Dim dCurrent_Sunday As Date dCurrent_Sunday = DateAdd("d", 1 - Weekday(Date, vbSunday), Date) MsgBox "If today's date is '" & Format(Date, "DD MMM YYYY") & "' then" & vbCrLf & _ " Current Sunday Date is : " & Format(dCurrent_Sunday, "DD MMM YYYY"), vbInformation, "Current Sunday Date" End Sub
Method2: Get Current Week Sunday Date using VBA Functions
Here is the second method to find Current week Sunday date of this week.
'Method 2: Current Week Sunday Date using Excel VBA Functions Sub VBA_Find_Current_Sunday_Method2() 'Variable Declaration Dim dCurrent_Sunday As Date dCurrent_Sunday = Date - Weekday(Date, vbSunday) + 1 MsgBox "If today's date is '" & Format(Date, "DD MMM YYYY") & "' then" & vbCrLf & _ " Current Sunday Date is : " & Format(dCurrent_Sunday, "DD MMM YYYY"), vbInformation, "Current Sunday Date" End Sub
Method3: Get Current Week Sunday Date using VBA Functions
Let us see the third method to find Current week Sunday date of this week.
'Method 3: Current Sunday Date using Excel VBA Functions Sub VBA_Find_Current_Sunday_Method3() 'Variable Declaration Dim dCurrent_Sunday As Date dCurrent_Sunday = 1 - Weekday(Date) + Date MsgBox "If today's date is '" & Format(Date, "DD MMM YYYY") & "' then" & vbCrLf & _ " Current Sunday Date is : " & Format(dCurrent_Sunday, "DD MMM YYYY"), vbInformation, "Current Sunday 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 Date Function VBA WeekDay Function VBA Format Function