Imports System
Public Class Test
Public Shared Sub Main()
Dim dt As DateTime = DateTime.Now
Console.WriteLine("Day of Week:{0}", dt.DayOfWeek)
Console.WriteLine("Day of Week:{0}", CInt(dt.DayOfWeek))
End Sub
End Class
' run:
'
' Day of Week:Thursday
' Day of Week:4
'