lparameters tnMonth, tnYear ldStart=ctod("^"+str(tnYear,4)+"/"+padl(int(tnMonth),2,"0")+"/"+"01") ldEndDay = gomonth(ldStartDay,1)-day(gomonth(ldStartDay,1)) for ix = 0 to day(ldEndDay) ? ldStart+ix, dow(ldStart+ix,2) = 7 && Sunday endfor