Imports System.IO
Module Module1
Sub Main()
Dim DateInfo As New DateTime(Now.Ticks)
Console.WriteLine("Date: " & DateInfo.Month & "/" & _
DateInfo.Day & "/" & DateInfo.Year)
Console.WriteLine("Date: " & DateInfo.ToLongDateString())
Console.WriteLine("Today is: " & DateInfo.DayOfWeek)
Console.WriteLine("Days in April, 2002: " & DateInfo.DaysInMonth(2002, 4))
End Sub
End Module