функция определюящая сколько пятниц 13-ое в текущем году?

[Draiv93]

помоги составить функцию определюящую сколько пятниц 13-ое в текущем году?

[EducatedFool]

Зачем надо было создавать одинаковые сообщения в разных разделах форума?

Функция нужна на VBA?
Самостоятельно пробовали сделать хоть что-нибудь?

[MCH]

=СУММПРОИЗВ(--(ДЕНЬНЕД(ДАТА(ГОД(СЕГОДНЯ());СТРОКА (1:12);13);2)=5))

[Казанский]

Function Fri13(Optional ByVal y) As Long
Dim i&
If IsMissing(y) Then y = Year(Date)
For i = 1 To 12
    If Weekday(DateSerial(y, i, 13)) = 6 Then Fri13 = Fri13 + 1
Next
End Function

Пример из окна Immediate

?fri13 'текущий год
 1 
?fri13(2009)
 3