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.