'根据时间的字符串形式（20031110）获得日期型
Function GetDateTimeByDateString(ByVal DateString As String) As Date
Return CDate(Left(DateString, 4) & "-" & Right(Left(DateString, 6), 2) & "-" & Right(DateString, 2))
End Function
本文地址：http://com.8s8s.com/it/it43900.htm