Imports System

Public Module Module1

    Public Sub Main()

        Dim d1 as Datetime = Datetime.Parse("03.08.2017", new System.Globalization.CultureInfo("de-DE"))

        Dim d2 as Datetime = Datetime.Parse("29-08-2017", new System.Globalization.CultureInfo("de-DE"))

        Dim aktuellerMonat as Boolean = ((d1.month & d1.year) = (d2.month & d2.year))

        Console.WriteLine(aktuellerMonat)

    End Sub

End Module