>How I know how many weeks has the current year ? (any function o procedure?
>
>thanks in advance.
>
>Carlos Burgos

This will depend on how week no. 1 is defined, but this should work:

do while .t.
 lnMaxDay=31
 lnWeekMax=WEEK(DATE(YEAR(DATE()),12,lnMaxDay),0,0) && the two 0's may need to be changed!
 if lnWeekMax=1 && May report week 1 of the next year!
  lnMaxDay=lnMaxDay-1
 else
  exit
 endif
enddo
?lnWeekMax