Re: date function

[dhandy@xxxxxxxxxxx (Douglas Handy)]

Booth,

>  Fill "DateTest" with any Sunday's date and use "DateIn" as your target 
>date.  Then run this bit.  "indx" will be the day of the week where 
>0=Sunday, 6=Saturday.  (Test it though  - I may be off a day)
>   C*
>   C     DateIn        subdur    DateTest      days:*d           7 0
>   C     days          div       7             days
>   C                   mvr                     indx              1 

With this code you need to be sure that your "any Sunday" base date is
older than DateIn.  If so, you're OK.  If not, you can have a problem
because the remainder can be negative.  So you should add a test to
see if indx < 0 and if so do indx = indx + 7 to put it back in range.

Also note that ISO 8601 says that days should be numbered 1=Monday
thru 7=Sunday, but that is another matter.

Personally I like to put this in a subprocedure (like Rob's post)
rather than code it inline.  Mine is in a service program, with the
rest of my date handling functions.

Doug
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---