aşağıdaki kodu dener misiniz?

Function EnBenK()

Dim EB As Double, EK As Double

Dim SyDizi(2) As Double

SyDizi(0) = CDate("20.12.2020 12:50:10")

SyDizi(1) = CDate("01.02.2020 14:00:21")

SyDizi(2) = CDate("23.12.2020 10:14:00")

EB = SyDizi(0)

EK = SyDizi(0)

For x = 1 To 2

If EB < SyDizi(x) Then EB = SyDizi(x)

If EK > SyDizi(x) Then EK = SyDizi(x)

Next x

Debug.Print "EB ", Format(EB, "dd.mm.yyyy hh:nn:ss"), "EK ", Format(EK, "dd.mm.yyyy hh:nn:ss")

MsgBox "EB : " & Format(EB, "dd.mm.yyyy hh:nn:ss") & vbCrLf & "EK : " & Format(EK, "dd.mm.yyyy hh:nn:ss")

End Function

---

kusura bakmayın aklım accesse gitti soru excelmiş şimdi farkettim.