Question

关于VB自动编号（时间＋0001）的生成

这样一种编号,就是按日期累加的方式,例如(今天是08年05月24号,<br/>则当天的编号为08052401,08052402,08052403,第二天的则为08052501,08052502,08052503)不知道这样的代码要怎么写,有知道的老师帮我写一下好吗?要自动生成，谢谢
对不起，有一点，我忘记补充了．我还需要它每次都要查询数据库中的数据，比如说数据库中已经有08092501了，那么下一个记录就要+1，

Answer 1

Private Sub Form_Click()
MsgBox "生成两位后缀"
Cls
For i = 1 To 99
Print Format(Right(Year(Date), 2), "00") & Format(Month(Date), "00") & Format(Day(Date), "00") & Format(i, "00")
Next
MsgBox "生成四位后缀"
Cls
For i = 1 To 9999
Print Format(Right(Year(Date), 2), "00") & Format(Month(Date), "00") & Format(Day(Date), "00") & Format(i, "0000")
Next

End Sub

Answer 2

Private Sub Form_Click()
Dim temp As Variant
Static i As Integer
temp = Split(Date, "-")
i = i + 1
Print Mid(temp(0), 3, 2) & Format(temp(1), "00") & Format(temp(2), "00") & i
End Sub

Answer 3

Dim x!
x = Val(Right(Val(Year(Now)), 2)) * 1000000 + Val(Month(Now)) * 10000 + Val(Day(Now)) * 100 + 1

Print Format(x, "00000000"), Format(x + 1, "00000000"), Format(x + 2, "00000000")

Answer 4

=year(Today())-int(year(today())/100)*100
&Text(month(today()),00)
&Text(day(today()),00)

Answer 5

Private Sub Command1_Click()
For i = 1 To 99
Print Format(now, "yymmdd") & Format(i, "00")
Next
End Sub