Thinks.

>

>FUNCTION FourthFridayOfMonth(tnYear, tnMonth)
>LOCAL lnDOW
>lnDOW = DOW(DATE(tnYear, tnMonth, 01), 7)
>RETURN DATE(tnYear, tnMonth, 7 - lnDow + 1 + 3*7)
>
>* or one-liner
>FUNCTION FourthFridayOfMonth(tnYear, tnMonth)
>RETURN DATE(tnYear, tnMonth, 7 - DOW(DATE(tnYear, tnMonth, 01), 7) + 1 + 3*7)
>

>
>>
>>I need to get the four friday date from each month.
>>
>>Example:
>>getFourFridayFromMonth(year = 2007, month = 01) && return Date(2007,01,26)
>>getFourFridayFromMonth(year = 2007, month = 02) && return Date(2007,02,23)
>>getFourFridayFromMonth(year = 2007, month = 03) && return Date(2007,03,23)
>>getFourFridayFromMonth(year = 2007, month = 04) && return Date(2007,04,27)
>>getFourFridayFromMonth(year = 2007, month = 05) && return Date(2007,05,25)
>>getFourFridayFromMonth(year = 2007, month = 06) && return Date(2007,06,22)
>>getFourFridayFromMonth(year = 2007, month = 07) && return Date(2007,07,27)
>>getFourFridayFromMonth(year = 2007, month = 08) && return Date(2007,08,24)
>>getFourFridayFromMonth(year = 2007, month = 09) && return Date(2007,09,28)
>>getFourFridayFromMonth(year = 2007, month = 10) && return Date(2007,10,26)
>>getFourFridayFromMonth(year = 2007, month = 11) && return Date(2007,11,23)
>>getFourFridayFromMonth(year = 2007, month = 12) && return Date(2007,12,26)