Public Sub testa
DateTime.DateFormat = "MM/dd/YYYY"
Log(DateTime.DateParse("04/01/2021"))
Log(DateTime.DateParse("09/13/2021"))
Log(DateTime.DateParse("09/14/2021"))
Log(DateTime.DateParse("09/15/2021"))
Log(DateTime.DateParse("09/16/2021"))
Log(DateTime.DateParse("09/17/2021"))
Log(DateTime.DateParse("09/18/2021"))
Log(DateTime.DateParse("09/19/2021"))
Log(DateTime.DateParse("09/20/2021"))
Log(DateTime.DateParse("09/21/2021"))
End Sub