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,
