Thanks, Cetin.

Nice to know there are 5 Sundays in April :)

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

********************************************************************
*  Description.......: GetDays 
*  Calling Samples...: GetDays()
*  Parameter List....: tnMonth, tnYear, tnDow, tnFDow
*  Created by........: Cetin Basoz 04/12/2000 04:38:18 PM 
*  Modified by.......: 
********************************************************************
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