Paradox Community

Items in pnews.paradox-programming

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 


Copyright © 2004 thedbcommunity.com