Imports System.IO
Module Module1
Sub Main()
Dim Dt As DateTime = Now()
Console.WriteLine("Long date: " & Dt.ToLongDateString)
Console.WriteLine("Short date: " & Dt.ToShortDateString)
Console.WriteLine("Long time: " & Dt.ToLongTimeString)
Console.WriteLine("Short time: " & Dt.ToShortTimeString)
Console.WriteLine("Universal time: " & Dt.ToUniversalTime)
End Sub
End Module
|