Dear Bimp, Thanks ya, sudah terjawab dan sukses....
Salam, ----- Original Message ----- From: Ida Bagus Putu Marwana To: [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 -----
