Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
=F3-WEEKDAY(F3)+1
Option Explicit
Sub test()
MsgBox GetSunday("3/28/03")
End Sub
Function GetSunday(ADate As Date) As Date
GetSunday = ADate - WeekDay(ADate) + 1
End Function