EĞER(METNEÇEVİR(A1;"aa.gg.yyyy ss:dd:ss:nn")=METNEÇEVİR(A2;"aa.gg.yyyy ss:dd:ss:nn");"Dogru";EĞER(METNEÇEVİR(A1;"gg.aa.yyyy")<>METNEÇEVİR(A2;"gg.aa.yyyy");"Tarih Yanlış";EĞER(METNEÇEVİR(A1;"hh:mm:ss")<>METNEÇEVİR(A2;"hh:mm:ss");"Doğru";"Saat Yanlış")))

(30/10/2020, 02:08)atoykan yazdı: Formülü bu şekilde uygularsanız tarih hatalı ise "Tarih Yanlış", saat hatalı ise "Saat Yanlış" şeklinde sonuç verir.

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

=EĞER(VE(METNEÇEVİR(A3;"aa.gg.yyyy ss:dd")<>METNEÇEVİR(D3;"aa.gg.yyyy ss:dd");METNEÇEVİR(B3;"aa.gg.yyyy ss:dd")<>METNEÇEVİR(E3;"aa.gg.yyyy ss:dd"));"Her ikiside yanlis";EĞER(VE(METNEÇEVİR(A3;"aa.gg.yyyy ss:dd")=METNEÇEVİR(D3;"aa.gg.yyyy ss:dd");METNEÇEVİR(B3;"aa.gg.yyyy ss:dd")=METNEÇEVİR(E3;"aa.gg.yyyy ss:dd"));"ikiside dogru";EĞER(METNEÇEVİR(A3;"aa.gg.yyyy ss:dd")<>METNEÇEVİR(D3;"aa.gg.yyyy ss:dd");"Baslangic yanlis";"Bitis yanlis")))