Dim myformat As String =DateTime.DateFormat
DateTime.DateFormat = "yyyy-MM-dd HH:mm:ss."
Dim SomeTime As Long = DateTime.DateParse ("2018-05-14 11:38:01.6258711")
DateTime.DateFormat = "MM/dd/yyyy"
Dim MyDate As String =DateTime.Date(SomeTime)
Log("My date is: " & MyDate) 'displays: My date is: 05/14/2018
DateTime.DateFormat =myformat