Penomoran otomatis menggunakan tanggal

Penomoran otomatis menggunakan tanggalVB

Tutorial Visual Basic dalam membuat kode otomatis untuk meringankan pekerjaan programers dalam penamaan identitas berdasarkan tahun, tanggal dan bulan



Sebenernya ini baru saja saya dapatkan dari lab, sedikit senggol-senggol teman, ngerti juga.
telad banget baru nyadar..heheheh

okay to the point ajah. Disini yang kalian butuhkan adalah sebuah datapicker sebagai data yang akan dipilah untuk diambil value-nya. Dalam penggunaanya, saya akan melakukan penyimpanan sekaligus pencarian data pada database yang terkoneksikan dengan adodc

Lihat listing dibawah ini:

Sub otomatis()
Dim tanggal, tahun, bulan, no, oto As String
tanggal = Left(DTPicker1.Value, 2)
bulan = Mid(DTPicker1.Value, 4, 2)
tahun = Right(DTPicker1.Value, 2)

sementara.RecordSource = "select * from table sementara where no_pinjam"
If adodc1.Recordset.RecordCount = 0 Then
oto = tahun & bulan & tanggal & "001"
Else
adodc1.Recordset.MoveLast
no = Right(adodc1.Recordset!kode_buku, 3) + 1
oto = tahun & bulan & tanggal & Right("00" & no, 3)
End If
text1.Text = oto
End Sub

1. Arti dari "Dim tanggal, tahun, bulan, no, oto As String" adalah pembuatan variable yang diolah menjadi string
2. Arti dari "tanggal = Left(DTPicker1.Value, 2)" adalah datapicker diambil dari kiri yang akan menuju kekanan, dimana data diambil hanya berjarak 2 saja
3. Arti dari "bulan = Mid(DTPicker1.Value, 4, 2)" adalah datapicker diambil dari kiri setelah pemotongan 4 karakter, yang hasilnya mendapatkan data pada tengah. Ini pada format waktu dikomputer yooo
4. Arti dari "oto = tahun & bulan & tanggal & "001" adalah penggabungan variable yang telah dibuat untuk kemudian disatukan menjadi data waktu yang diinginkan formatnya (20010626), seperti itulah

saya rasa selebihnya tinggal kalian analisa sendiri, kalau masih ada kurang mengerti moonggoo ditanyakan saja