Imports System
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim dt1 As DateTime = New DateTime(2023, 08, 02)
Dim dt2 As DateTime = New DateTime(2023, 08, 02, 19, 22, 05)
Dim dt3 As DateTime = DateTime.Now
Console.WriteLine(dt1)
Console.WriteLine(dt2)
Console.WriteLine(dt3)
End Sub
End Class
' run
'
' 8/2/2023 12:00:00 AM
' 8/2/2023 7:22:05 PM
' 8/3/2023 1:52:49 PM
'