Dim NoFaktur as String NoFaktur = "SI-" & Format(Date,"YYYY") & "/" & Format(Date,"MM") & "-" & Format(nIndex,"0000000")
nIndex variabel Index nomer urutnya. --- Format(nIndex,"0000000") --> agar hasil string pada bagian depat ditambah string "0" --> sesuai panjang yg dikehendaki Harap dipastikan tanggal sistem komputer tidak diubah2 user ! Selamat mencoba... Rgds, Newbie On 3/2/09, jacky Jag <[email protected]> wrote: > Salam, > saya lagi coba2 buat program point of sales. pada nomor faktur saya ingin > memakai format yang menggabungkan text dan angka. contoh SI-2009/03-000050. > dimana 2009 adalah tahun dan 03 adalah bulan, untuk 000050 adalah nomor urut > faktur. yang menjadi pertanyaannya gimana cara menggabungkan fungsi > tahun,bulan dan nomor urut faktur pada vb. > Terima kasih. > > > > > > [Non-text portions of this message have been removed] > >
