Thiks.


>

>Function getmyfriday
>LPARAMETERS nMonth,nYear
>local dStartdate,nLoop
>dStartdate=DATE(nYear,nMonth,1)
>FOR nLoop=0 TO 6
>	dDate=dStartdate+nLoop
>	IF DOW(dDate)=6		&& it's Friday
>		RETURN dDate+21
>	endif
>ENDFOR
>

>
>
>>Hi,
>>
>>
>>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)