IDbytanggal

Sub Idpot()
        Try
            conn.Open()
            Dim kode_baru As String
            Dim kode_jobs As String
            cmd = New MySqlCommand("SELECT idpotongan from tblpotongan where idpotongan in(SELECT MAX(idpotongan) from tblpotongan)", conn)
            dr = cmd.ExecuteReader
            dr.Read()
            If Not dr.HasRows Then
                kode_jobs = Format(Now, "yyMMdd") & "001"
            Else
                kode_jobs = Microsoft.VisualBasic.Right(dr.GetString(0), 3) + 1
                If Microsoft.VisualBasic.Left(dr.GetString(0), 6) <> Format(Now, "yyMMdd") Then
                    kode_jobs = Format(Now, "yyMMdd") & "001"
                Else
                    kode_baru = Microsoft.VisualBasic.Right(dr.GetString(0), 3) + 1
                    kode_jobs = Format(Now, "yyMMdd") & Microsoft.VisualBasic.Right("00" & kode_baru, 3)
                End If
            End If
            TextBoxIDpot.Text = kode_jobs

            conn.Close()
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            conn.Dispose()
        End Try
    End Sub