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