根据时间的字符串形式（20031110）获得日期型

'根据时间的字符串形式（20031110）获得日期型

Function GetDateTimeByDateString( ByVal DateString As String ) As Date

Return CDate (Left(DateString, 4) & "-" & Right(Left(DateString, 6), 2) & "-" & Right(DateString, 2))

End Function