caranya gampang.. convert dulu sebelum diambil bulan dan tahunnya.. kira2 kalu ubah code kamu dikit :
dim Tgl as date Tgl=dateserial(year(dtgl.value),month(dtgl.value),1)-1 sMonth = CStr(Format(tgl, "m")) sYear = CStr(Format(tgl, "yyyy")) sPeriode = CStr(bMonth & bYear) ======================= http://www.fire888.com -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] Behalf Of Rudi Sent: Thursday, January 31, 2008 8:27 AM To: [email protected] Subject: [Programmer-VB] ini logika kode yang tanggal mundur kode yg gw ambil cuma spt ini sih: '---ambil bulannya (datetimepicker) lalu dikurang 1 '---jadi kalo bulan nya desember maka data yg ditarik 12 - 1 (november) sMonth = CStr(Format(dTgl.Value, "m") - 1) '---ambil tahun dari datetimepicker sYear = CStr(Format(dTgl.Value, "yyyy")) '---nah ini yg menjadi patokan utk menarik data, jadi setiap bulan januari pasti '---data yg ketarik ini isinya kosong krn tlh berganti tahun sPeriode = CStr(bMonth & bYear) perintah utk narik data contohnya spt ini : select pemakaianbulanlalu from tagihan where periode = speriode jadi sekali lagi yang mau ditanyakan adalah bagaimana logikanya spy kode diatas bisa juga menarik data apabila tahunnya berubah, semoga ada teman2 yang mau menambahkan kode diatas atau bahkan di ganti seluruhnya juga ga masalah. atas bantuanya terimakasih banget flash ______________________________________________________________________ ______________ Never miss a thing. Make Yahoo your home page. http://www.yahoo.com/r/hs Wahana Programmer Groups Links Yahoo! Groups Links No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.19.12/1245 - Release Date: 1/26/2008 3:45 PM No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.19.12/1245 - Release Date: 1/26/2008 3:45 PM
