ok om, tks a lot. i'll try... salam, sodik On Sun, 13 Jun 2010 02:46:00 +0700, Maulwy Shahran <[email protected]> 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, > ----- 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, > > -- Using Opera's revolutionary e-mail client: http://www.opera.com/mail/ ------------------------------------ Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut: http://wahanapress.net <*> Untuk menghubungi owner milis ini, kirim email ke: [email protected] <*> Konsultasi pemrogramman bisa chat disini: Yahoo! Messenger: wahana.programmer <*> Facebook Wahana Programmer Indonesia http://facebook.com/wahanaprogrammer.net Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/programmer-vb/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/programmer-vb/join (Yahoo! ID required) <*> To change settings via email: [email protected] [email protected] <*> To unsubscribe from this group, send an email to: [email protected] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
