title: How to COUNTIFS with cells formatted as date
body: <p>Excuse me, again about COUNTIFS  </p>
  
  <pre><code>Dim a As String    
  a = ct.Range("B4").Text ' B4 is formatted as date
  Range("C6").Value = Application.WorksheetFunction.CountIfs(rDat, a, rSec, "1")
  </code></pre>
  
  <p>rDat and rSec are defined ranges (on another sheet).<br>
  rDat has the same format as ct.B4 (i.e. date)<br>
  I got "0" as a result, but it is wrong.<br>
  I tried to remove date format, and format as text - it works.<br>
  But I need date format in rDat and B4.</p>