excel - 日付としてフォーマットされたセルで COUNTIFS する方法

Question

すみません、またCOUNTIFSについて

Dim a As String    
a = ct.Range("B4").Text ' B4 is formatted as date
Range("C6").Value = Application.WorksheetFunction.CountIfs(rDat, a, rSec, "1")

rDat と rSec は、(別のシートで) 定義された範囲です。
rDat は ct.B4 (つまり日付) と同じ形式ですが
、結果は "0" になりましたが、間違っています。
日付形式を削除して、テキスト形式にしようとしましたが、うまくいきました。
しかし、rDat と B4 の日付形式が必要です。

Answer 1

Dim a As Date
a = ct.Range("B4") ' do not convert B4 to text
Range("C6").Value = Application.WorksheetFunction.CountIfs(rDat, a, rSec, "1")