VB.NET 日期式自動編碼

VB.NET 日期式自動編碼

 

 '***************<日期式自動編碼>***************
        '=======設定流水碼格式========
        Dim 流水碼 As String
        流水碼  = "000"
        流水碼  = Format(Val(流水碼 ) + 常數或變數, "000")

       '常數或變數或可以自定義任何數字,如 +1 ; +2 ; +3 ......一般用+1

 

        '=====設定今年的文字格式======
        Dim 年份碼 As String
        年份碼 = Today.Year.ToString

 

        '=======設定本月的文字格式=========
        Dim 月份碼 As String

        '如果月份碼查出的數字小於10前面加"0"
        If Today.Month.ToString < 10 Then
            月份碼 = "0" & Today.Month
        Else
            月份碼 = Today.Month.ToString
        End If

       

        '==================================

        '物件值 = 代碼 + 年份碼 + 月份碼 + 流水碼

 

        Dim 舊紀錄年 As String
        Dim 舊紀錄月 As String
        舊紀錄年 = Mid(qsht.Cells(x,y), Number, Number)
        舊紀錄月 = Mid(qsht.Cells(x.y), Number, Number)

 

        If 年份碼 > 舊紀錄年 Then
            流水碼 = "000"
            流水碼 = Format(Val(流水碼) + 1, "000")
            物件名稱.Text  = "代碼" & 年份碼 & 月份碼 & "_" & 流水碼

        End If

        If 月份碼 > 舊紀錄月 Then
            流水碼 = "000"
            流水碼 = Format(Val(流水碼) + 1, "000")
            物件名稱.Text  = "代碼" & 年份碼 & 月份碼 & "_" & 流水碼            
        End If

 

        If 舊紀錄月 = "12" And 月份碼 = "01" Then
            流水碼 = "000"
            流水碼 = Format(Val(流水碼) + 1, "000")
            物件名稱.Text  = "代碼" & 年份碼 & 月份碼 "_" & 流水碼            
        End If

 '*****************< 結束 >**********************