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,
----- Original Message -----
*From:* Edy WIYONO <mailto:[email protected]>
*To:* [email protected]
<mailto:[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,
