关于DATEADD的问题

Question

Private Sub Command2_Click()
Dim date1 As Date
Dim date2 As Date
date1 = "20041005"
date2 = "20091009"
Me.Caption = DateDiff("d", date1, date2)
End Sub
运行时,提示我类型错误!是哪里错了?

Answer 1

date1 = #2004-10-05#
date2 = #2009-10-09#

Answer 2

date1?？
date1 是2004-01-05

Answer 3

Private Sub Command1_Click()
    Dim date1
    Dim date2
    date1 = 20020205
    date2 = 20020905
    date1 = Left(date1, 4) & "-" & Mid(date1, 5, 2) & "-" & Right(date1, 2)
    date2 = Left(date2, 4) & "-" & Mid(date2, 5, 2) & "-" & Right(date2, 2)
    Me.Caption = DateDiff("d", date1, date2)
End Sub

Answer 4

date1 = "2004-10-05"
date2 = "2009-10-09"