To Long Date, Long Time and Universal Time
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