sama - sama... saling bantu gak ada dosanya kan? malah nambah pahala...
/Sent from my Mozilla Thunderbird 3/ Regards, Bimp On 6/18/10 10:22 AM, Maulwy Shahran wrote:
Dear Bimp, Thanks banget ya... Salam, ----- Original Message ----- *From:* Ida Bagus Putu Marwana <mailto:[email protected]> *To:* [email protected] <mailto:[email protected]> *Sent:* Tuesday, June 15, 2010 9:22 AM *Subject:* Re: [programmer-vb] filter transaksi by time hehehehehe mana ada jam 7,5 Public Function SetTanggal(Tanggal as Date) as Date If Hour(Tanggal) < 7 And Minute(Tanggal) < 30 Then '<<<<< gini aja yang diubah SetTanggal = CDate(Format(DateAdd("d", -1, Tanggal), "mm/dd/yyyy")) Else SetTanggal = CDate(Format(Tanggal, "mm/dd/yyyy")) Endif End Function /Sent from my Mozilla Thunderbird 3/ Regards, Bimp On 6/14/10 10:03 PM, Maulwy Shahran wrote:Dear Bimp, Maaf nanya lagi, kalo cut offnya jam 7.30, jadi bagaimana ya? Saya coba yang < 8 saya ganti jadi 7.5, kok ga berubah ya? tetap berubah setelah jam 8 lewat? Saya sudah set jam ke 7.30, 7.45, 7.55, tetep masih tanggal kemarin. Setelah jam 8.00 pagi, baru berubah ke tanggal hari ini. Salam, ----- Original Message ----- *From:* Ida Bagus Putu Marwana <mailto:[email protected]> *To:* [email protected] <mailto:[email protected]> *Sent:* Saturday, June 12, 2010 9:13 PM *Subject:* Re: [programmer-vb] filter transaksi by time oala...saya yang salah ngerti hehehehehe... 'Buat ini di dalam modul, terserah nama modulnya apa atau dimasukkan ke dalam modul yang sudah ada juga gpp Public Function SetTanggal(Tanggal as Date) as Date If Hour(Tanggal) < 8 Then SetTanggal = CDate(Format(DateAdd("d", -1, Tanggal), "mm/dd/yyyy")) Else SetTanggal = CDate(Format(Tanggal, "mm/dd/yyyy")) Endif End Function Jadi pada saat memasukkan data ke dalam field TransDate, gunakan function ini >> rst!TransDate = SetTanggal(Now()) 'Jadi kalo 13 Jun 2010 jam 07:59:59 masuk ke dalam transaksi tanggal 12 Jun 2010 sedangkan kalo 13 Jun 2010 jam 08:00:00 masuk ke dalam transaksi tanggal 13 Jun 2010 /Sent from Mozilla Thunderbird 3/ Regards, Bimp On 6/13/10 8:57 AM, Maulwy Shahran wrote:Dear Bimp Marwana, Mohon maaf jika pertanyaannya agak membingungkan. Katakan saya punya database (Data.mdb) dengan tblTrans adalah tabel. Saya mempunyai field TransDate, dimana ada transaksi diantara jam 8.00 AM (today) - 8.00 AM (next day) akan berisikan tanggal today, jadi bila ada transaksi diinput jam 00.05 AM, tgl 13 Juni 2010, maka field TransDate akan terisi tanggal 12 Juni 2010 (bersumber pada data dari Form, txtDate.text), bukan tanggal 13 Juni 2010, mengacu pada kondisi waktu transaksi diatas. Yang ingin saya tanyakan, bagaimana codenya dalam VB6 yang bisa mewujudkan ini. Terima kasih. Salam, ----- Original Message ----- *From:* Ida Bagus Putu Marwana <mailto:[email protected]> *To:* [email protected] <mailto:[email protected]> *Sent:* Saturday, June 12, 2010 7:14 PM *Subject:* Re: [programmer-vb] filter transaksi by time filternya di database kan ya? SQLnya jadi seperti ini : "...where tgltransaksi between '" & cdate(me.dtpicker.value & " 08:00:00") & "' AND '" & dateadd("d", 1, cdate(me.dtpicker.value & " 08:00:00")) & "'" /Sent from Mozilla Thunderbird 3/ Regards, Bimp On 6/13/10 3:46 AM, Maulwy Shahran wrote:Dear Pak Edy, Maaf pak jika dianggap silly question, soale lagi coba2 develop pake VB6... Form saya sudah punya, misal namanya FrmNumber. Sebelumnya untuk filter transaksi ini saya menggunakan nomor awal transaksi dan nomor akhir transaksi perperiode transaksi per hari ( 8.00 AM Today - 8.00 AM NextDay). Fungsi yang Bapak berikan ini, diletakkan di FrmNumber ataukah di tempat lain (Modul)? Komponen yang saya gunakan untuk menyimpan tanggal transaksi, diambil dari dtp1(DTPicker) dengan format: dtp1.Value = Format(Now, "dd/mm/yyyy"). Terima kasih atas informasinya. Salam,
