Imports System

Public Module Module1

    Public Sub Main()

        dim today as DateTime = DateTime.now

        console.writeline(today.ToShortDateString())

        console.WriteLine(today.ToString("f"))

        console.WriteLine(today.ToString("F"))

        console.writeline(today.TolongtimeString())

    End Sub

End Module