IsDate Function not recognizing date-CodePudding

I've got this code

   If IsDate(EndTime) = True Then
    Worksheets("Control_File2").Range("D" & lrow2).Value = EndTime
    
    Else
    Worksheets("Control_File2").Range("D" & lrow2).Value = "Not Provided"
    
    End If

and currently End Time = "25/08/2021 07:35:47.546" but the code always goes to the "Else" condition.

why is it not recognizing it as a date?

CodePudding user response：

As GSerg pointed out, the milliseconds are not being handled by IsDate().

Function IsDate2(Value As String) As Boolean
    Rem I added this line to escape empty strings
    If Len(Value) = 0 Then Exit Function
    IsDate2 = IsDate(Split(Value, ".")(0))
End Function