Imports System

Public Module Module1

    Public Sub Main()

        dim today as DateTime = DateTime.Now

dim x as string = "dd/MM/yy HH:mm tt"

console.writeline(today.ToString(x))

​

    End Sub

End Module