Arsip: Masalah Dalam Menghitung Expired Date...

 
user image
more 11 years ago

ii_irwan

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...
user image
more 11 years ago

heriy4nt0

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.
user image
more 11 years ago

ii_irwan

ttp aja mas... tgl 10/02/2010 nya ttp tampil mas.. ada .. cara lain g mas.. ?
user image
more 11 years ago

mas_kofa

@ii_irwan : kasus kamu adalah kasus filter tanggal yang udah sgt2 sering sekali dibahas di sini....coba kamu search2 dulu...
user image
more 11 years ago

zones

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
user image
more 11 years ago

ii_irwan

param1 dan param2 itu apa variabel atau . apa om... trus klo variabel .. type nya apa.. ?
user image
more 11 years ago

elva_ivana

@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';
user image
more 11 years ago

ii_irwan

sama .. om hasilnya.. ttp yg .. 10/02/2010 .. masih tampil
user image
more 11 years ago

elva_ivana

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';
user image
more 11 years ago

zones

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.
more ...
  • Pages:
  • 1
  • 2
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com