Tinggal ganti aja dari
Urutan = Format(Date, "YYMMDD") + "001"
Jadi
Urutan = Format(SetTanggal(Now), "YYMMDD") + "001"
Dan
Urutan = Format(Date, "YYMMDD") + Right("000" & Hitung, 3)
Jadi
Urutan = Format(SetTanggal(Now), "YYMMDD") + Right("000" & Hitung, 3)
/Sent from my Mozilla Thunderbird 3/
Regards,
Bimp
On 6/14/10 12:39 PM, Maulwy Shahran wrote:
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 <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,
----- 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,
