Question

VB如何自动生成一个日期加数字序列号

Answer 1

VB可以使用Date 函数获取当前日期拼接数字字符串组成日期加数字序列号字符串。

Date函数返回包含系统日期的 Variant (Date)。

Option Explicit
    Dim strsz As String * 3
    Dim a As Integer
    
Private Sub Command1_Click()
    a = a + 1
    Text2 = a
    strsz = Format(a, "000")
    Text3 = Date$ & strsz '显示日期加序号(1-999)
End Sub

Private Sub Form_Load()
    Text1 = Date$
    Text2 = a
End Sub

Answer 2

Dim d As Long, r As Long
d = DateDiff("d", "1899-12-30", "2146-05-29") '取出总天数
Randomize
r = Int(Rnd * d) '得出随机数
Print DateAdd("d", r, "1899-12-30") & "-" & CStr(Int(Rnd * 100)) '根据随机数取得随机日期

这个问题的难点是，得到的日期必须是合法的，比如6月不能有31号，所以不是简单地随机数生成；
如果逆向思考就解决了，从天数着手，DateDiff，DateAdd两个日期函数搭配使用。

追问

能不能做成 年月日是当天数字是从1开始往上加？
求高手

追答

Dim d As Long, r As Long
d = DateDiff("d", Date, "2146-05-29") '取出总天数
Randomize
r = Int(Rnd * d) '得出随机数
Print DateAdd("d", r, Date) & "-" & CStr(Int(Rnd * 99 + 1)) '根据随机数取得随机日期
还不懂hi我，不要在这里追问

Answer 3

Print Format(Int(Rnd * 90000), "YYYY-MM-DD") & "-" & Format(Int(Rnd * 100), "00")

范围：1899-12-30~2146-05-29 序号0-99