I would like to know if I can use a wildcard for dates?

I have dates with time stored on A1:A5 and I want to count how many items are  

there with criteria "8/12/2015" regardless of the time, the output *compl* should be 2 as A1 and A4 contains the date "8/12/2015"

A1 = 8/12/2015 12:00 AM

A2 = 8/25/2015 3:00 PM

A3 = 8/23/2015 4:00 AM

A4 = 8/12/2015 1:30 AM

A5 = 8/20/2015 12:00 AM

```
            Sub counter()

            With Sheet1
            Dim compl As String
            Dim xdate As String, xdate2 As String
            xdate = "08/12/2015"
            xdate2 = xdate & "*"

            compl = WorksheetFunction.CountIfs(Range("a1:a5"), xdate2)
                Debug.Print compl
            End With

            End Sub

```