RE: Calculating a New Date

["Mike Haston ** Data" <MHaston@xxxxxxx>]

Joel -

I'd be interested.  You've sent me one or two of those functions and they're 
great.  I have a date procedures service program, you are welcome to anything I 
have in there ... although you probably have most of it in yours already.

#checkDates
#completeDate
#day3Upper
#dayName
#dayOfWeek
#dayOfYear
#endOfMonth
#getPrvWkEnd
#getPrvWkStart
#getSeasonYear
#getWkEndDate
#getWkStrDate
#inDateRange
#month3Upper
#monthName
#weekDay
#weekOfYear


-----Original Message-----
From: jrc@xxxxxxxxxx [mailto:jrc@xxxxxxxxxx]
Sent: Wednesday, April 09, 2003 10:57 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Calculating a New Date


Bill,

I have some procedures that format strings from date variables passed in, one 
for *ISO and one for *USA.  They include variables for zero suppress, dashes, 
slashes, etc.  It would be simple enough to follow the examples and make as 
many different outputs as you want. 

If you work with actual date fields instead your calling program could simply 
send the adjusted date like so:

dateString = #dateUSA( myDate + %days( numDiff ) );

Since you want to handle varying date types, you simply adjust myDate before 
the call... why not, since you already have all the required pieces in your 
PLIST?  I mean you already have to know the format and everything to be able to 
send it, so why bother?

if dateFormat = *MDY ;
  myDate = %date( myString : *MDY );
elseif ;
...etc
endif ;

// now call the desired date format routine...


I have some other date routines as well, like one that lets you change a Date 
fields attributes (like set day to 15, etc) and one that retrieves the last day 
of the month for the passed Date).  I've been thinking of putting together a 
service program for download on my website.  If anyone is interested or has 
additional ideas for the SRVPGM please let me know.

Joel
>I've got a program that calculates a new date
>based upon a number of days offset.  Here is a
>snippet of the code:
>
>. . . 
>C     *entry        Plist                         
>               
>C                   Parm                    indate
>               
>C                   Parm                   
>dateformat        5   
>C                   Parm                   
>diffdays          4 0 
>C                   Parm                   
>outdate               
>C*                                                
>               
>C                   Select                        
>               
>C*                                                
>               
>C     dateformat    WhenEq    '*MDY'              
>               
>C     dateformat    OrEq      '*mdy'              
>               
>C     *mdy          Move      inmdy         @date 
>               
>C                   AddDur    diffdays:*days@xxxx 
>               
>C     *mdy          Move      @date         outmdy
>       
>. . .
>
>I'm enhancing the logic to handle all valid date
>formats, to allow the option specification of an
>output date format, and will be prototyping the
>parameters.
>
>Does anyone have a sample of a program like this
>already written?  I'm going to end up overhauling
>this thing and would like to save a lot of time if
>it's already been done.  BTW, I'm at V5R2 and am
>not against free form code.
>
>Bill
>_______________________________________________
>This is the RPG programming on the AS400 / iSeries
>(RPG400-L) mailing list
>To post a message email: RPG400-L@xxxxxxxxxxxx
>To subscribe, unsubscribe, or change list options,
>visit:
>http://lists.midrange.com/mailman/listinfo/rpg400-l
>or email: RPG400-L-request@xxxxxxxxxxxx
>Before posting, please take a moment to review the
>archives
>at http://archive.midrange.com/rpg400-l.
>
>
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.