如何把字符串和日期比较？

Question

比如str = "2003-3-25"
怎么判断是当前日期？

Answer 1

if isdate(str) then
   if formatdatetime(cdate(str),vblongdate)=formatdatetime(now(),vblongdate) then
      msgbox "是当前日期"
   else
      msgbox "不是当前日期"
   end if
else
   msgbox "不是合法的日期字符串"
end if

Answer 2

Private Sub Command1_Click()
    Dim str As String
    str = "2003-3-27"
    If str = Date Then
        Debug.Print "a"
    End If
End Sub

Answer 3

if isdate(str) then
   if datediff("d",cdate(str),date)=0 then
      msgbox "是当前日期"
   else
      msgbox "不是当前日期"
   end if
else
   msgbox "不是合法的日期字符串"
end if

Answer 4

------------------------------------------------------------------
个人专栏：http://www.csdn.net/develop/author/netauthor/lihonggen0/
------------------------------------------------------------------

Answer 5

同意litsnake1(litsnake) 和 CityBird(鹰扬九洲) 的方法