Imports System Public Class MainClass Shared Sub Main() Dim dteData As Date dteData = #5/5/1967 6:41:00 AM# 'Display the date and time System.Console.WriteLine(dteData.ToLongDateString & " " & _ dteData.ToLongTimeString) End Sub End Class