*--------------------------------------------
parameters nYear,nMonth,nWeek,nFirstDayOfWeek

nFirstDayOfWeek = evl(m.nFirstDayOfWeek,set('fdow'))

fd = date(m.nYear,m.nMonth,1)

dowk = dow( m.fd, m.nFirstDayOfWeek )

fd =  m.fd + iif(m.dowk # 1, ( 7 - m.dowk ) + 1,0)

fdd = m.fd + ( ( m.nWeek-1 ) * 7 )
weekn = week( m.fdd , 3, m.nFirstDayOfWeek )

*!*	text to mm textmerge 
*!*	month <<m.nMonth>> of <<m.nYear>>:
*!*	first <<cdow(m.fd)>> is <<m.fd>>
*!*	week <<m.nweek>> of month <<m.nmonth>> starts on <<m.fdd>>
*!*	week( <<m.fdd>>,3,<<m.nFirstDayOfweek>>) returns <<m.weekn>>
*!*	endtext

return m.weekn