Listview sutun veri alma sorunu

[kemal turan]

merhaba,
aşağıdaki kod satırı ile Z sutunundan tarih verisi alıyorum. Bu sutunun her hücresinde tarih verisi olmayabiliyor.
Tarih verisi olmayan hücreler için listview e 30.12.1899 verisi geliyor.
bunu nasıl önleyebilirim.

.ListItems(X).ListSubItems.Add , , Format(CDbl(sr.Cells(i, "Z").Value), "DD.MM.YYYY")

 

[Orion1]

Deneyiniz.

If IsDate(sr.Cells(i, "Z").Value) Then
    .ListItems(X).ListSubItems.Add , , Format(CDate(sr.Cells(i, "Z").Value), "DD.MM.YYYY")
Else
    .ListItems(X).ListSubItems.Add , , sr.Cells(i, "Z").Value
End If

 

[kemal turan]

Merhaba Sn.Orion hocam
Çok teşekkür ederim.
Selametle kalınız.

 

[Orion1]

Merhaba Sn.Orion hocam
Çok teşekkür ederim.
Selametle kalınız.

Rica ederim.
iyi çalışmalar.