hehehehehe mana ada jam 7,5
Public Function SetTanggal(Tanggal as Date) as Date
If Hour(Tanggal) < 7 And Minute(Tanggal) < 30 Then '<<<<< gini
aja yang diubah
SetTanggal = CDate(Format(DateAdd("d", -1, Tanggal), "mm/dd/yyyy"))
Else
SetTanggal = CDate(Format(Tanggal, "mm/dd/yyyy"))
Endif
End Function
/Sent from my Mozilla Thunderbird 3/
Regards,
Bimp
On 6/14/10 10:03 PM, Maulwy Shahran wrote:
Dear Bimp,
Maaf nanya lagi, kalo cut offnya jam 7.30, jadi bagaimana ya? Saya
coba yang < 8 saya ganti jadi 7.5, kok ga berubah ya? tetap berubah
setelah jam 8 lewat? Saya sudah set jam ke 7.30, 7.45, 7.55, tetep
masih tanggal kemarin. Setelah jam 8.00 pagi, baru berubah ke tanggal
hari ini.
Salam,
----- Original Message -----
*From:* Ida Bagus Putu Marwana <mailto:[email protected]>
*To:* [email protected]
<mailto:[email protected]>
*Sent:* Saturday, June 12, 2010 9:13 PM
*Subject:* Re: [programmer-vb] filter transaksi by time
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,
