Imports System

Public Module Module1

    Public Sub Main()

        ' Previous Month

        Dim PostingDate As Date = new Date(2022, 11, 15)

        Dim monthsDiff As Integer = ((PostingDate.Year - Date.Now.Year) * 12) + PostingDate.Month - Date.Now.Month

        Console.WriteLine(monthsDiff)

        ' Current Month

        PostingDate = new Date(2022, 12, 15)

        monthsDiff = ((PostingDate.Year - Date.Now.Year) * 12) + PostingDate.Month - Date.Now.Month

        Console.WriteLine(monthsDiff)

        ' Next Month

        PostingDate = new Date(2023, 1, 15)

        monthsDiff = ((PostingDate.Year - Date.Now.Year) * 12) + PostingDate.Month - Date.Now.Month

        Console.WriteLine(monthsDiff)

        'Three Months Away

        PostingDate = new Date(2023, 3, 1)

        monthsDiff = ((PostingDate.Year - Date.Now.Year) * 12) + PostingDate.Month - Date.Now.Month

        Console.WriteLine(monthsDiff)

    End Sub

End Module