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