Imports System

Imports System.Linq

Public Module Module1

    Public Sub Main()

        Dim originalBirthday = New DateTime(1973, 08, 16) '** Year, Month, Day

​

        Dim months = System.Globalization.CultureInfo.InvariantCulture.DateTimeFormat.MonthNames.Take(12).Union({"Smarch", "NYD"})

        Dim birthdayOfYear = originalBirthday.DayOfYear

        Dim newMonth = months(birthdayOfYear \ 28)

        Dim newDay = birthdayOfYear mod 28

​

        Console.WriteLine("Your new birthdate is {0} {1}", newMonth, newDay)

    End Sub

End Module