Paradox Community

Items in pnews.paradox-programming

Subject:Re: code change
Date:17 Apr 2021 01:16:55 -0400
From:"Tony spencer" <tracy.fairbrother@btopenworld.com>
Newsgroups:pnews.paradox-programming

modridirkac <jure.zorko@gmail.com> wrote:
>proc firstOfMonth(d date) date
>   return( date(month(d),1,year(d)) )
>endProc
>
>
>proc lastOfMonth(d date) date
>   return( date(month(d),daysInMonth(d),year(d)) )
>endProc
>
>proc wholeMonth(d date, var fD date, var lD date)
>   fD = firstOfMonth(d)
>   lD = lastOfMonth(d)
>endProc
>
>proc getTable()
>var q query
>     TC TCursor
>     dStr string
>     fD, lD date
>endVar
>   wholeMonth( today8) , fd, ld)
>   dStr = ">="+string(fd) + " ,<="+string(ld)
>   q = query
>
>     :work:mytable.db | Date   |
>     Check             | ~dStr  |
>
>   endQuery
>   q.executeQbe(TC)
>   scan TC :
>       ; do something
>   endScan
>endProc
>
>
>On Fri, 02 Apr 2021 11:26:40 +0200, Tony spencer  
><Tracy.fairbrother@btopenworld.com> wrote:
>
>> Thank you very much really appreciate the help 
>> 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
>
>
>-- 
>Using Opera's mail client: http://www.opera.com/mail/


Copyright © 2004 thedbcommunity.com