myDate = year(date) & string(2-len(month(date)),"0") & month(date) & string(2-len(day(date)),"0") & day(date)
msgbox myDate
结果是20130313
myDate = year(date) & right("0" & month(date),2) & right("0" & day(date),2)
msgbox myDate
结果是20130313
msgbox date
结果是2013-3-13
msgbox myDate
结果是20130313
myDate = year(date) & right("0" & month(date),2) & right("0" & day(date),2)
msgbox myDate
结果是20130313
msgbox date
结果是2013-3-13