VB.Net/Language Basics/With
With command
<source lang="vbnet"> 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 </source>