Imports System

​

Public Module Module1

​

    Public Sub Main()

        'Considering Monday as first day of the week'

        'Sample - Feb. 3, 2020'

        Dim sampleDate As Date = new DateTime(2020, 2, 3)

        Dim lessOneWeek As Date = sampleDate.AddDays(-7)

        'Get first day of the week'

        Dim firstDayOfTheWeek As Date = lessOneWeek.AddDays(-(lessOneWeek.DayOfWeek - 1))

        'Get last day of the week'

        Dim lastDayOfTheWeek As Date = firstDayOfTheWeek.AddDays(6)

        'Check if same month'

        If(firstDayOfTheWeek.Month <> lastDayOfTheWeek.Month) Then

            'Different month; 2 consecutive months at most'

            Dim firstMonthLastDay = Date.DaysInMonth(firstDayOfTheWeek.Year, firstDayOfTheWeek.Month) - firstDayOfTheWeek.Day

            'Output first month's start and end date'

            Console.WriteLine("First Month Start Date: {0}", firstDayOfTheWeek)

            Console.WriteLine("First Month End Date: {0}", firstDayOfTheWeek.AddDays(firstMonthLastDay))

            Dim secondMonthFirstDay = new DateTime(lastDayOfTheWeek.Year, lastDayOfTheWeek.Month, 1)

            Dim secondMonthEndDate = lastDayOfTheWeek.AddDays(-(lastDayOfTheWeek.Day - secondMonthFirstDay.Day))

            'Console.WriteLine("Second Month Start Date: {0}", lastDayOfTheWeek)'

            Console.WriteLine("Second Month Start Date: {0}", secondMonthEndDate)

            Console.WriteLine("Second Month End Date: {0}", lastDayOfTheWeek)

        Else

            'Same month'

            Console.WriteLine("Start Date: {0}", firstDayOfTheWeek)

            Console.WriteLine("End Date: {0}", lastDayOfTheWeek)

        End If

    End Sub

End Module

​