发票号码自动递增

发布于 2025-01-01 03:14:00 字数 401 浏览 4 评论 0原文

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

如何添加表单加载时自动递增的 5 位数字？

预期输出
20120100001
20120100002

Now.Month Problems#

当月份是一位数时，发票将是 10 位数，而当月份是两位数时，发票将是 12 位数？

输出

20121??????

预期产出

201201??????

原文

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

how can i add 5 digits that auto increment when the form loads?

Expected OUTPUT
20120100001
20120100002

Now.Month Problems#

when the month is one digit invoice will be 10 digits while when it is two digits invoice will be 12 digits?

OUTPUT

20121?????

EXPECTED OUTPUT

201201?????

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

孤独患者 2025-01-08 03:14:00

使用 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

Use Now.Month.ToString("00").

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

Try this,

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

回复收藏 0 原文

~没有更多了~