KTF hazırladım.Kullanım şeki =DogrumuTarihBas(A3;D3;B3;E3)
J sütununda bazılarını bence yanlış yazmışsınız sonuç olarak.

Public Function DogrumuTarihBas(Bas1 As Date, Bas2 As Date, Bitis1 As Date, Bitis2 As Date) As String

    Dim a As Boolean, b As Boolean, c As String

    Application.Volatile

    a = Format(Bas1, "dd.mm.yyyy hh:mm") = Format(Bas2, "dd.mm.yyyy hh:mm")

    b = Format(Bitis1, "dd.mm.yyyy hh:mm") = Format(Bitis2, "dd.mm.yyyy hh:mm")

    c = "her ikiside dogru"

    If a = False Then c = "baslangic yanlis"

    If b = False Then c = "bitis yanlis"

    If a = False And b = False Then c = "her ikiside yanlis"

    DogrumuTarihBas = c

End Function