date
格式为2012-4-1
你可以用len检测字符数目并加入字符串“0”
dates="2012-4-5"
For Each i In Split(Dates,"-")'这里的dates换成date就是你的现在的系统时间
If Len(i)<2 Then i1="0"& i Else i1=i
i2=i2+i1
Next
MsgBox i2
'vb和vbs获取日期可以不需要Year,Month,day，时间也一样
...你不要那个0的话2010111，是2010-11-1还是2010-1-11呢。加零相当与按位数分割了，不加0的话必须使用其他字符代替
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024