Автоматическое увеличение номера счета

Question

Invoice Number = Now.Year & Now.Month & ?????

как добавить 5 цифр, которые автоматически увеличиваются при загрузке формы?

Ожидаемый ВЫХОД

20120100001

20120100002

Now.Month проблемы #

когда месяц состоит из одной цифры счета будет 10 цифр, а когда это будет две цифры счета будет 12 цифр?

ВЫХОД

20121 ?????

ОЖИДАЕМЫЙ ВЫХОД

201201 ?????

Answer 1

Использование Now.Month.ToString("00").

Dim str = DateTime.Now.Year & DateTime.Now.Month.ToString("00")

Попробуйте это,

Sub Main()
    For i = 1 To 12
        Console.WriteLine(GetAutonumber(i))
    Next
End Sub

Public Function GetAutonumber(no As Integer) As String
    Dim strNum = no.ToString()
    Dim str = DateTime.Now.Year & DateTime.Now.Month.ToString("00") & New String("0", 5 - strNum.Length) & strNum
    Return str
End Function