RE: Date arithmetic - performance dog?

Mike,

You also have the possiblity of executing %date(XQ03)
three times within this section of code.  By eval'ing
this to a work field once and using the work field
throughout the code this will become more efficient.

Scott Mildenberger

--- Mike Haston ** Data <MHaston@xxxxxxx> wrote:
>  * test for valid date.                             
>                     
> c                   test(d e)               XQ03    
>                     
> c                   if        not %error            
>                     
>  * if XQ03's week ending date is beyond today, set
> the week start/end to 
>  * the previous week's                              
>                     
> c                   if        #getWkEndDate(
> %date(XQ03) ) > jobDate     
> c                   eval      beginDate =
> #getPrvWkStart( jobDate )      
> c                   eval      endDate =
> #getPrvWkEnd( jobDate )          
> c                   move      endDate       endDate#
>                     
>                                                     
>                     
>  * else set valid week start and end dates          
>                     
> c                   else                            
>                     
> c                   eval      beginDate =
> #getWkStrDate( %date(XQ03) )   
> c                   eval      endDate =
> #getWkEndDate( %date(XQ03) )     
> c                   endif                           
>                     
>                                                     
>                     
>  * else invalid date, set week start/end dates to
> previous week          
> c                   else                            
>                     
> c                   eval      beginDate =
> #getPrvWkStart( jobDate )      
> c                   eval      endDate =
> #getPrvWkEnd( jobDate )          
> c                   endif                           
>                     


__________________________________
Do you Yahoo!?
The New Yahoo! Search - Faster. Easier. Bingo.
http://search.yahoo.com