PRIVATE test ldStart = DATE(2008,12,31) ldEnd = DATE() SYS(3054,12,'test') lnMonth1 = month(ldStart) lnDay1 = day(ldStart) IF YEAR(ldStart) = YEAR(ldEnd) lnDiff = ldEnd - ldStart select dDOB from Patients where dDOB is not null and dDOB <> {} and dDOB ; between date(year(dDOB),lnMonth1,lnDay1) and (date(year(dDOB),lnMonth1,lnDay1) + lnDiff) ; ORDER BY dDOB INTO CURSOR curTest nofilter ELSE lnMonth2 = month(ldEnd) lnDay2 = day(ldEnd) select dDOB from Patients where dDOB is not null and dDOB <> {} and ; (dDOB between date(year(dDOB),lnMonth1,lnDay1) and date(year(dDOB),12,31) ; OR dDOB between date(year(dDOB),1,1) and date(year(dDOB),lnMonth2,lnDay2)) ; ORDER BY dDOB INTO CURSOR curTest nofilter ENDIF BROWSE FOR MONTH(dDob) = 2 _cliptext = test