请大家帮帮忙，看一下，怎么把字符串“20070603”转化成时间的类型date，我当时为了方便，把时间转化成字符串来
存储，现在麻烦了，因为我要用datediff 这个函数来计算两个时间之间的间隔，必须要求都是date类型的。
我用过cdate，format（string，“YYYYMMDD”）来转化成时间，发现都不行。现在急死我了。

Dim Date1 as Date,STR1 as string
str1="20070603"
str1=left(str1,4) & "-" & mid(STR1,5,2) & "-" & right(str1,2)
Date1=cdate(STR1)

'''''''''''(1)方法1''''''''''''

Private Function ConvStringToDate(DateExpression As String) As Date
Dim Year As String
Dim Month As String
Dim Day As String

Year = Left$(DateExpression, 4)
Month = Mid$(DateExpression, 5, 2)
Day = Right$(DateExpression, 2)

ConvStringToDate = DateTime.DateSerial(Year, Month, Day)
End Function

'''''''''''''(2)方法二'''''''''''''

Private Function ConvStringToDate(DateExpression As String) As Date
ConvStringToDate = DateTime.DateSerial(Left$(DateExpression, 4), Mid$(DateExpression, 5, 2), Right$(DateExpression, 2))

End Function

Private Sub Command1_Click()
Dim s As String
Dim ds As String
s = "20060603"
ds = Left(s, 4) & "-"
ds = ds & Mid(s, 5, 2) & "-"
ds = ds & Right(s, 2)
Print ds

Dim d As Date
d = CDate(ds) '现在的d就是日期型
End Sub

在yyyy mm dd间加个间隔符号，然后再CDate

恩，谢谢大家了，问题已经解决了。我刚发现还有一个方法可以转化，format(string,"####-##-##")这样好像也可以将字符串转化为日期的，呵呵。