'获得时间的字符串形式，例如：20031110
Function GetDateStringByDateTime( ByVal DateTime As Date ) As String
Return DateTime.Year & Format(DateTime.Month, "00") & Format(DateTime.Day, "00")
End Function
获得时间的字符串形式，例如：20031110
comments powered by Disqus
'获得时间的字符串形式，例如：20031110
Function GetDateStringByDateTime( ByVal DateTime As Date ) As String
Return DateTime.Year & Format(DateTime.Month, "00") & Format(DateTime.Day, "00")
End Function