Sub testtime
'DateTime.TimeFormat = "HH.mm.ss.SSS"
'DateTime.DateFormat = "YYYY-MM-DD"
Dim now As Long = DateTime.Now
Log(now)
Log(DateTime.Date(now))
Log(DateTime.Time(now))
'Log("Today is: " & DateTime.Date(DateTime.Now))
'Log($"The current date is: $DateTime{now}"$)
End Sub