Function isTarih() As Boolean

On Error GoTo Err_hata



    Dim result As Boolean

    Dim str As String

    

    str = Day(CLng(DateSerial(Year("39.12.20"), Month("39.12.20") + 1, 1) - 1))



    result = True

    

Exit_kod:

    isTarih = result

    Exit Function



Err_hata:

    result = False

    MsgBox Err.Description

    Resume Exit_kod

End Function