Module Module1
Sub Main()
Dim dt As Date = New DateTime(2018, 9, 18, 10, 59, 31)
Console.WriteLine(dt)
Console.WriteLine(dt.Year)
Console.WriteLine(dt.Day)
Console.WriteLine(dt.Month)
Console.WriteLine(dt.Hour)
Console.WriteLine(dt.Minute)
Console.WriteLine(dt.Second)
End Sub
End Module
' run:
'
' 18/09/2018 10:59:31
' 2018
' 18
' 9
' 10
' 59
' 31