create or replace function Count_DoW (date_in date, Day_of_Week varchar2) return number is
begin
if date_in is null then return null;
end if;
If to_char(next_day(trunc(date_in,'MM')-1
,substr(Day_of_week,1,3))+21,'DD')
<= to_char(last_day(date_in),'DD')-7 then
return 5;
else
return 4;
end if;
end;
/
Function created.