Try (not tested much)

lnMonth = 10
lnYear = 2007
ldFirstOfMonth = DATE(lnYear, lnMonth, 1)
lnWeeksPerMonth = MOD(WEEK(GOMONTH(ldFirstOfMonth,1))+52 - WEEK(ldFirstOfMonth), 52)
? lnWeeksPerMonth	

>
>How I detect how many weeks in a month . Need to evaluate if a month got 5 weeks.
>
>I use this function, but It not evaluate quite well:
> (INT((DAY(DATE()))/7) +1 )
>
>It consider that all months got five weeks.
>
>
>Thanks in advance
>Carlos Burgis