作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

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

Function GetDateTimeByDateString(ByVal DateString As String) As Date

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

End Function

相关软件：