Subject: | code change
| Date: | 2 Apr 2021 05:26:40 -0400
| From: | "Tony spencer" <Tracy.fairbrother@btopenworld.com>
| Newsgroups: | pnews.paradox-programming
|
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
|