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, ----- Original Message ----- From: Edy WIYONO To: [email protected] Sent: Saturday, June 12, 2010 12:46 PM Subject: RE: [programmer-vb] filter transaksi by time Anda bisa menggunakan fungsi sbb: Function fDate(ByVal dtEntryDate As Date) As Date ' sebelum jam 08.00, di hitung hari kemarin If CInt(Format(dtEntryDate, "hh")) < 8 Then fDate = DateSerial(Year(dtEntryDate), Month(dtEntryDate), Day(dtEntryDate) - 1) Else fDate = dtEntryDate End If End Function Percobaan menghasilkan sbb: ?Format(fDate(#2-jan-2000 00:00:01#),"yyyy-mm-dd") 2000-01-01 ?Format(fDate(#2-jan-2000 03:00:01#),"yyyy-mm-dd") 2000-01-01 ?Format(fDate(#2-jan-2000 07:00:50#),"yyyy-mm-dd") 2000-01-01 ?Format(fDate(#2-jan-2000 08:00:00#),"yyyy-mm-dd") 2000-01-02 ?Format(fDate(#2-jan-2000 14:00:00#),"yyyy-mm-dd") 2000-01-02 ?Format(fDate(#2-jan-2000 20:00:00#),"yyyy-mm-dd") 2000-01-02 Salam Hangat dan Jabat Erat EdyWiyono ------------------------------------------------------------------------------ From: [email protected] [mailto:[email protected]] On Behalf Of Maulwy Shahran Sent: Saturday, June 12, 2010 11:23 To: [email protected] Subject: [programmer-vb] filter transaksi by time Dear All, Bila waktu rentang waktu transaksi 1 hari adalah antara jam 8.00 AM (today) - 8.00 AM (next day), ada yang punya info, bagaimana menulis codenya jika transaksi dibuat jam 1.00 AM tanggal 13 Juni 2010, tetapi system tetap mencatat itu adalah transaksi tanggal 12 Juni 2010, karena transaksi untuk tanggal 13 Juni 2010 baru dimulai pada jam 8.00 AM. Terima kasih. Salam,
