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.
Public Function GetStartEndDate(ByVal WeekNo As Integer) As String
Dim dt As New DateTime(DateTime.Now.Year, 1, 1)
Dim strStart As String
Dim strEnd As String
dt = dt.AddDays(((WeekNo - 1) * 7) - 1)
dt = dt.AddDays(dt.DayOfWeek.Monday - dt.DayOfWeek)
strStart = dt.ToShortDateString()
strEnd = dt.AddDays(7 - 1).ToShortDateString()
Return "Start: " & strStart & " End: " & strEnd
End Function