Dear All,
Jawaban dibawah sudah menjawab permasalahan saya, tetapi saya ada permasalahan
baru, masih inline dengan permasalahan sebelumnya. Terlampir script yang saya
gunakan untuk generate number transaksinya:
Private Sub Oto1()
Call Koneksi
RS.Open "Select * from Faktur Where NoFaktur In(Select Max (NoFaktur) From
Faktur) Order By NoFaktur Desc", conn
RS.Requery
Dim Urutan As String * 9
Dim Hitung As Long
With RS
If .EOF Then
Urutan = Format(Date, "YYMMDD") + "001"
LblFaktur = Urutan
Else
If Left(!NoFaktur, 6) <> Format(Date, "YYMMDD") Then
Urutan = Format(Date, "YYMMDD") + "001"
Else
Hitung = Right(!NoFaktur, 3) + 1
Urutan = Format(Date, "YYMMDD") + Right("000" & Hitung, 3)
End If
End If
LblFaktur = Urutan
End With
End Sub
Pertanyaan:
Bagaimana bila script diatas hendak disesuaikan dengan kondisi waktu transaksi,
yaitu jika waktu belum menunjukan jam 8 pagi hari berikutnya, contoh jam 7.30
AM, 15 Juni 2010, maka nomor transaksi tetap 100614XXX. Setelah jam 8.00 AM, 15
Juni 2010, maka nomor transaksi menjadi 100615XXX.
Terima kasih.
Salam,
----- Original Message -----
From: Ida Bagus Putu Marwana
To: [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,
----- 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,
