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,
