proc StartDate(d date) date
; proc returns start date for given date
; if date is before 16th, start date is begining of month
	if day(d) < 16 then
		return( date(month(d),1,year(d)) )
	 else
		return( date(month(d),16,year(d)) )
	 endIf
endProc

proc EndDate(d date) date
; proc returns end date for given date
; if date is before 16th, end date is 15,
; if date if 16th or later, end date is end of month
	if day(d) < 16 then
		return( date(month(d),15,year(d)) )
	 else
		return( date(month(d),daysInMonth(d),year(d)) )
	 endIf
endProc



Help how would I change this if I wanted a months worth of data any help
would be appreciated