Public Module WeekdayNameFunction Public Sub Main()
' Dim historicalDate As New DateTime(1905, 1, 9, New JulianCalendar()) Dim dayOfWeek As Integer = Weekday(historicalDate, FirstDayOfWeek.System)
Console.WriteLine(WeekdayName(dayOfWeek, False, FirstDayOfWeek.System)) End Sub End Module