Saya kesulitan dalam menghitung expired date pada program saya.. misalnya gni.. saya punya FORM yg isinya DateTimePiker1 = tnggal settingan yaitu 01/01/2009 DateTimePiker2 = tanggal sekarang saya mau menampilkan produk2 yang expired dengan cara. menghitung expired date barang di tb_produk saya pakek SQL.text := 'Select id_barang,nama_barang, tgl_expired FROM tb_produk Where tgl_expired Between '+Quotedstr(DateToStr(Datetimepiker1.Date))+' AND '+QuotedStr(DateToStr(Datetimepiker2.Date)) + ' Order By id_barang'; asumsi tgl sekarang misalnya 28/12/2009 dan di tb_produk field tgl_expired ada barang yang tanggal expirednya 10/01/2010 Nah saat saya jalankan... yang tangal 10/02/2010 itu ikut tampil.. gimana cara menyiasati... kesalahan tersebut.. MINTA BANTUANNYA... TOLONG.. MAKASIH...

Gunakan QuotedStr(FormatDateTime('dd/mm/yyyy',date)), jangan DateToStr. Format tanggal dapat dd/mm/yyyy atau mm/dd/yyyy atau yyyy-mm-dd, sesuaikan dengan format tanggal yang diterima Server database kamu.

ttp aja mas... tgl 10/02/2010 nya ttp tampil mas.. ada .. cara lain g mas.. ?

@ii_irwan : kasus kamu adalah kasus filter tanggal yang udah sgt2 sering sekali dibahas di sini....coba kamu search2 dulu...

Klo bgt kamu pakai parameter saja, seperti ini : SQL.text :='select id_barang, nama_barang, tgl_expired from tb_produk where tgl_expired between :param1 and :param2 order by id_barang'; Parameters[0].value := DateTimePicker1.date; Parameters[1].value := DateTimePicker2.date; Open; Always work's

param1 dan param2 itu apa variabel atau . apa om... trus klo variabel .. type nya apa.. ?

@ii_irwan: dan di tb_produk field tgl_expired ada barang yang tanggal expirednya 10/01/2010 Nah saat saya jalankan... yang tangal 10/02/2010 itu ikut tampil.. Gimana cara menyiasati... kesalahan tersebut..

ya field tgl_expired nya jangan di Select ...

SQL.text := 'Select id_barang,nama_barang FROM tb_produk Where tgl_expired Between '+Quotedstr(DateToStr(Datetimepiker1.Date))+' AND '+QuotedStr(DateToStr(Datetimepiker2.Date)) + ' Order By id_barang';

sama .. om hasilnya.. ttp yg .. 10/02/2010 .. masih tampil

oooh.. maksudnya mungkin filternya sebelum tgl_expired ya .. wah .. mis undertand nih ... gunakan operator pembanding ...

SQL.text := 'Select id_barang,nama_barang FROM tb_produk Where tgl_expired >= '+Quotedstr(DateToStr(Datetimepiker1.Date))+
' AND tgl_expired < '+QuotedStr(DateToStr(Datetimepiker2.Date)) + ' Order By id_barang';

Hee..... mending dari pada ribet coba kamu test sintaks sqlnya dahulu. Jika sudah ok baru dech di masukkan ke delphina :D jadina ndak asal terka.