Autonumber berdasarkan tanggal pada VB6

Pada kesempatan sebelumnya saya telah membagikan informasi mengenai pembuatan autonumber. Kali ini saya akan membagikan cara untuk membuat autonumber atau penomoran secara otomatis dengan menggunakan tanggal sebagai acuan yang menggunakan bahasa pemrograman Visual Basic 6. Pada program ini menggunakan perulangan. semoga bisa menambah wawasan bagi para pembaca semuanya.

berikut source code nya :

Function autoNumber() As String
    Dim rs As New ADODB.Recordset
    rs.Open "select max(kode_beli) from pembelian where month(tgl_beli)=" & Month(Now) & _
    " and year(tgl_beli)=" & Year(Now), cn
    autoNumber = IIf(IsNull(rs.Fields(0)), Right(Year(Now), 2) & Month(Now) & "001", _
        Left(rs.Fields(0), 4) & Format(Right(rs.Fields(0), 3) + 1, "0##"))
    rs.Close
End Function

berikut screenshootnya :