Option Strict On
Imports System.Globalization
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
|