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)