Dizide Large fonkisyonu kullanımı hk.

[tamer42]

Merhaba,
Aşağıdaki fonksiyon ile bir dizide en büyük 2. değeri alabiliyoruz,
yalnız dizi içindeki elamanlar ekli görselde göründüğü gibi tarih formatında olunca; bu fonksiyon 0 değerini döndürüyor.
Sıkıntı nerede oalbilir?
Nasıl bir çözüm bulunabilir?

Dim loopArr As Variant
maxVal = Application.WorksheetFunction.Large(loopArr, 2)

 

[Muzaffer Ali]

Merhaba.
Tarihleri hücreden alabiliyorsanız hata vermiyor.

    Dim i As Date
    i = WorksheetFunction.Large(Range("G1:G3"), 2)

 

[tamer42]

Merhaba.
Tarihleri hücreden alabiliyorsanız hata vermiyor.

    Dim i As Date
    i = WorksheetFunction.Large(Range("G1:G3"), 2)

Muzaffer Hocam
Tarih verilerini ADO Recordest ile alıyorum
teşekkürler,

uSQL = "SELECT DISTINCT Tarih FROM [s1$]"

RS.Open uSQL, Con, 3, 1

Veri = RS.GETROWS
x = UBound(Veri, 2)
ReDim Arr(x)
For i = LBound(Veri, 2) To x
    Arr(i) = Veri(0, i)   
Next i

 

[Korhan Ayhan]

Diziye alırken aşağıdaki gibi uygulayıp deneyiniz.

Belki çözüm olur.

Arr(i) = CLng(Veri(0, i))

 

[tamer42]

Diziye alırken aşağıdaki gibi uygulayıp deneyiniz.

Belki çözüm olur.

Arr(i) = CLng(Veri(0, i))

Harika!

 

[veyselemre]

uSQL = "SELECT TOP 1 * FROM (SELECT Tarih FROM [s1$] ORDER BY Tarih DESC)"

uSQL = "SELECT TOP 1 MAX(Tarih) FROM [s1$] GROUP BY Tarih"