Module Module1
Sub Main()
Dim d As Date = New DateTime(2018, 10, 22)
Dim d1 As Date = d
Console.WriteLine("d: " + d)
Console.WriteLine("d1 " + d1)
d = Date.MinValue
Console.WriteLine("d: " + d)
Console.WriteLine("d1: " + d1)
End Sub
End Module
' run:
'
' d: 22/10/2018
' d1 22 / 10 / 2018
' d: 00:00:00
' d1: 22/10/2018