Sub testDateFormats
Private dstr As String
Private dlong As Long
Private mystr As String
dstr = "3/28/2022"
DateTime.DateFormat = "MM/dd/YYYY"
dlong = DateTime.DateParse(dstr)
DateTime.DateFormat = "YYYY.MM.dd"
mystr = DateTime.Date(dlong)
Log(dstr & " =? " & mystr)
End Sub