Alternatives SUMPRODUCT ISO

I created a formula for a search of the current week, I ask if there are alternatives

Code:

---

=SUMPRODUCT((YEAR($C$3:$AAC$3)=YEAR($B$14))*(ISOWEEKNUM($B$14)=$B$15)*(C4:AAC4="K"))

---

Thank you for your cooperation

=weeknum(today();21)

or

Code:

---

Function F_ISOweeknumber(d_01)
  F_ISOweeknumber=Format("ww",d_01-WeekDay(d_01,2)+4,2,2)
End Function

---

thank you snb

I used the formula

Code:

---

=weeknum(today();21)

---

Test Ok

Code:

---

Otherwise the function:
Function F_ISOweeknumber(d_01)
  F_ISOweeknumber=Format("ww",d_01-WeekDay(d_01,2)+4,2,2)
End Function

---

I could not use it, I think for local language problems

I successfully tested

Code:

---

Public Function fSettimana(ByVal v As Variant) As Long
    Application.Volatile
    fSettimana = Format(DatePart("ww", v, , 0), "ww", vbMonday, vbFirstJan1)
End Function

---

I was looking for the formula I modified in this way:
=COUNTIF(OFFSET(TURNI!$A$4:$A$9,0,MATCH(B14,TURNI! $A$3:$ZZ$3,0)-WEEKDAY(B14,2),100,7),"K")
Total count voices of the week