String kayıtlarda tarih alanını yakalama

[hido]

Selam;

Excelde 4. kolonda, en üst satırda tarih alanım var "30/09/2016 CUMA" gibi alt satırlarda ise ürünlerle ilgili bilgiler var.
Döngü ile 4. kolonu kontrol ediyorum örnek "30/09/2016 CUMA" formatında bir kayıt bulunduğunda bu alanı nasıl yakalaya bilirim?

Yani tarih girilmişse uyarı verecek girilmemişse pas gececek def ile denedim fakat çıkamadım işin içinden.

Kod: Tümünü seç

if StrToTimeDef(Sheet.Cells[Kolon, 4].Text, Now) <> (Now) then
begin
showmessage('tarih formatı girilmiş');
end;

Örnek:

30/09/2016 CUMA (Bu alanı bulduğunda uyarı verecek)
Sütaş
Besel
Ülker
Aymar

[greenegitim]

Ben genelde daha hızlı aktramak açısından önce memtable a yüklüyorum sonra kontrolleri yapıp veritabanına aktarıyorum
araya bir memtable koyup o kayıta / varmı şeklinde kontrol edebilirsin daha sonra aktarırsın.