Option Explicit
Function VanHoa(Rng As Range, Optional Cap As Byte = 3)
Dim He10 As String, He12 As String, StrC As String
Const Xx As String = "/"
Dim VTr As Byte, Cls As Range
If Cap = 3 Then
He10 = "08/1009/1010/10": He12 = "10/1211/1212/12"
ElseIf Cap = 2 Then
He10 = "05/1006/1007/10": He12 = "06/1207/1208/1209/12"
ElseIf Cap = 1 Then
He10 = "01/1002/1003/1004/10": He12 = "01/1202/1203/1204/1205/12"
End If
For Each Cls In Rng
StrC = IIf(InStr(Cls.Value, Xx) = 2, "0", "") & Cls.Value
If InStr(He10, StrC) > 0 Or InStr(He12, StrC) > 0 Then _
VanHoa = VanHoa + 1
Next Cls
End Function