日期的VBA代码

Question

我正在研究一些用于更新报告的代码。当我在代码中使用日期时，代码不起作用，但是如果我使用确切的字符串“ 22/08/2018”，则它可以工作。

today = InputBox("Put in a date (yyyymmdd)")
mm = Mid(today,5,2)
yyyy = Left(today,4)
dd = Right(today,2)
date = dd & "/" & mm & "/" & yyyy

For each cell in Workbooks("a").Worksheets("1").Range("A1":"AZ1000")

  If cell.value = date
    rownumber = cell.row
    a = Cells(rownumber - 13, 13).Value
  End If

Next

上面的代码不起作用。但是，如果我在“如果”条件下将日期更改为精确的“ 22/08/2018”，则它可以正常工作并提供正确的值。

任何人都可以帮助我。