vb 日期和顺序数组合

来源：百度知道 编辑：UC知道 时间：2024/05/20 19:43:54
VB+ACCESS中,如何将日期和3位顺序数字组合????
我想要的效果是这样的:
20090203001
20090203002
20090203003
20090203004
20090204001
20090204002
20090205001
20090205002
20090205003
......

我用Label2.Caption = Year(Date) & Month(Date) & Day(Date) 取了时间.
但发现显示为200925,而不是我想要的20090205.

然后,后面的3位数字,应该怎么写呢?????
finding
正确的是format(now,"yyyymmdd")

Private Function GetDateWithNum(N As Integer) As String
GetDateWithNum = Format(Date, "yyyymmdd") & Format(N, "000")
End Function
Private Sub Command1_Click()
MsgBox GetDateWithNum(12)
End Sub

创建一个按钮command1然后粘贴上面的代码，单击可以测试效果

format(date(now),"yyyymmdd")

三楼的公式是正确的。

将Month(Date)和Day(Date)的结果强制转换为两位字符试试看