>Hi,
>
>Sorry. As I guessed, there is no short functions. So I had to write this.
>
>Function LastDowbyWeekNo(tnWeek, tnYear)
> *-- Purpose : Get the last day of the week by a week number
> Local ldTempDate
>
> If Parameters() < 2
> tnYear = Year(Date())
> Endif
>
> tnOffSet = tnWeek-2
> ldTempDate = Date(tnYear,1,1)
>
> Do While Week(ldTempDate) < tnWeek
> ldTempDate = ldTempDate+1
> Enddo
> Do While Week(ldTempDate)=tnWeek
> ldTempDate = ldTempDate+1
> Enddo
> Return ldTempDate-1

You might combine the two DO WHILE loops into one:

do while week(ldTempDate) <= tnWeek
  ldTempDate = ldTempDate + 1
enddo

Or, better yet, for better performance try to approach the desired date before you run the main loop. For instance, adding date(lnYear, 1, 1) + 7 * (tnWeek-2) should get you fairly close.