Simdiki tarih ile tablodan bir alandaki tarihi karsilastirma

[_blackdevil_]

slm arkadaslar.yeni bi projem var su anda onun uzerinde calisiyorum.simdi sorum su tabloda 'Gelme Tarihi' adinda bir alanim var yapmak istedigim sey bir sql sorgusu ile 'Gelme Tarihi'ndeki tarih ile simdiki tarihi karsilastiracak ve 'Gelme Tarihi'ndeki alan simdiki tarihden geride ise yani eski ise tablodaki bu satirin rengi kirmizi olacak.bununla cok ugrastim ama bir türlü karsilastiramadim.tüm hocalarimdan yardim bekliyorum...
Bütün Programci Arkadaslara Allah Kolaylik Versin
Saygilarimla...

[vedatkaba]

http://www.delphiturkiye.com/index.php? ... tetime.htm

Burdaki bilgiler sana yardımcı olur sanırım.Önce ayı karşılaştır daha sonra aya göre günü vs vs vs. .Kolay gelsin.

[_blackdevil_]

Kod: Tümünü seç

query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ekle where GELDI="GELMEDI" and geltarih="'+datetostr(date)+'"');
query1.Open;
if query1.RecordCount>0 then
showmessage('Müşterinin Getirmesi Gereken'+inttostr(query1.RecordCount)+' Tane Film Bulunuyor!')
else
showmessage('Müşteride Kalan Film Yok')

arkadaslar benim yazdigim kod bu ama ben iki kosul istiyorum 1.GELDI alani GELMEDI ikinciside gelterih alanindaki tarihin simdiki tarihden geride olmasi yani iki sart var birinci sart tamam ama ikin sarti yani o alandaki tarihin simdiki tarihden once olup olmadigini kontrol ettiremedim birturlu.nasil degistirmeliyim bu kodu...
Lütfen yardim edin
Saygilarimla....

[_blackdevil_]

arkadaslar allah rizasi icin yardim edin ya vallahi deliricem...

[lazio]

geltarih<"'+datetostr(date)

[_blackdevil_]

lazio kardes cevabin icin sagol ama hala sorun devam ediyor hata veriyor kod.yardimci olun lutfen yaw deli olacam

[lazio]

şimdi fark ettimde galiba çift tırnak kullanmışsın. bunları tek tırnağa çevir yada parametre kullan..

Kod: Tümünü seç

query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ekle where GELDI = :status and geltarih < :tarih');
query1.ParambyName('status').Value := 'GELMEDI';
  query1.ParambyName('tarih').Value := date;
query1.Open;
if query1.RecordCount>0 then
showmessage('Müşterinin Getirmesi Gereken'+inttostr(query1.RecordCount)+' Tane Film Bulunuyor!')
else
showmessage('Müşteride Kalan Film Yok')

[_blackdevil_]

lazio hocam allah razi olsun.sorun çözüldü kafayi bozmaktan kurtardiniz beni.cok sagolun ilgilendiginiz icin de ayrica tesekkur ederim...
Saygilar...