>Well George I won the bet you found the errors :) Here is improved tested version :)
>

lparameters tnMonth, tnYear, tnDow, tnFDow
>tnFdow = iif(type("tnFdow")#"N",1,tnFdow)
>tnDow = iif(type("tnDow")#"N",1,tnDow)
>tnYear = iif(type("tnYear")#"N",year(date()),tnYear)
>tnMonth = iif(type("tnMonth")#"N",month(date()),tnMonth)
>
>ldStart=ctod("^"+str(tnYear,4)+"/"+padl(int(tnMonth),2,"0")+"/"+"01")
>ldEnd = gomonth(ldStart,1)-day(gomonth(ldStart,1))
>
>IF dow(ldStart,tnFdow) # tnDow
>  ldStart = ldStart + (7 + tnDow - dow(ldStart,tnFdow))
>ENDIF
>for ix = 0 to day(ldEnd-1) step 7
> if month(ldStart+ix)=month(ldStart)
>    ? ldStart+ix, cdow(ldStart+ix), dow(ldStart+ix,tnFdow) = tnDow
> endif
>endfor

Cetin,

And type checking (which I never do for internal functions) to boot. Very nice, my friend.