一个关于日期转换的问题，请帮忙解决！！！

Question

date1=cstr(year(date1)) & cstr(month(date1)) & cstr(day(date1))

Answer 1

同意date1=cstr(year(date1)) & cstr(month(date1)) & cstr(day(date1))

Answer 2

不对，用date1=cstr(year(date1)) & cstr(month(date1)) & cstr(day(date1))
结果为：200312，不是20030102

Answer 3

Public Function str2date(str As String) As Date
str2date = CDate(Left(str, 4) & "-" & Mid(str, 5, 2) & "-" & Right
End FunctionPublic Function date2str(dat As Date) As String
date2str = Year(dat) & IIf(Month(dat) < 10, "0" & Month(dat), Month(dat)) & IIf(Day(dat) < 10, "0" & Day(dat), Day(dat))
End Function