Imports System

Imports Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

​

        ' Add the months to the date.

        Dim newDateOrig As Date = DateAdd(DateInterval.Day, -2,DateAdd(DateInterval.Day, 1-Weekday(today),Today))

        Dim newDate2 As Date = DateAdd(DateInterval.Day, -2,DateAdd(DateInterval.Day, 1-Weekday(#12/3/2021#), #12/3/2021#))

        Dim newDate3 As Date = DateAdd(DateInterval.Day, -2,DateAdd(DateInterval.Day, 1-Weekday(#12/11/2021#), #12/11/2021#))

        Dim newDate4 As Date = DateAdd(DateInterval.Day, -2,DateAdd(DateInterval.Day, 1-Weekday(#11/19/2021#), #11/19/2021#))

        Dim newDate5 As Date = DateAdd(DateInterval.Day, -2,DateAdd(DateInterval.Day, 1-Weekday(#12/24/2021#), #12/24/2021#))

​

        Console.WriteLine("New date Orig:   " & newDateOrig.ToShortDateString)

        Console.WriteLine("New date 2:      " & newDate2.ToShortDateString)

        Console.WriteLine("New date 3:      " & newDate3.ToShortDateString)

        Console.WriteLine("New date 4:      " & newDate4.ToShortDateString)

        Console.WriteLine("New date 5:      " & newDate5.ToShortDateString)

    End Sub

End Module