Mega Code Archive
With command
<![CDATA[
Imports System.IO
Module Module1
Sub Main()
Dim t As Today = New Today
With t
Console.WriteLine("Today: " & .TodayDate)
Console.WriteLine("Day: " & .Day)
Console.WriteLine("Month: " & .Month)
Console.WriteLine("Year: " & .Year)
Console.WriteLine("Day of week: " & .NumericDayOfWeek)
Console.WriteLine("Day of week: " & .StringDayOfWeek)
End With
End Sub
End Module
Class Today
Public Shared TodayDate As DateTime = Now()
Public Shared Day As Integer = Now.Day()
Public Shared Month As Integer = Now.Month()
Public Shared Year As Integer = Now.Year()
Public Shared NumericDayOfWeek As Integer = Now.DayOfWeek()
Public Shared StringDayOfWeek As String = Now.DayOfWeek.ToString()
End Class
]]>