>Sorry, I was no especific. I meant the current week of the month, not of the year.

ldDate = DATE()
ldFirstOfMonth = ldDate-DAY(ldDate)+1
? WEEK(ldDate,1,2) - WEEK(ldFirstOfMonth,1,2) + 1