Dim dl1 As Date = Date.TodayDim Y1 As String = dl1.YearDim M1 As String = dl1.MonthDim D1 As String = dl1.Day
Dim aa As Date = Date.Today & " 8:31"
msgbox(aa)