RE: Can I get the Day of the week?

["Slava Zharichenko" <Slava.Zharichenko@xxxxxxxx>]

works great.






MNWills@taylorcorp.com@midrange.com on 05/16/2001 09:30:07 AM

Please respond to RPG400-L@midrange.com

Sent by:  owner-rpg400-l@midrange.com


To:   RPG400-L@midrange.com
cc:

Subject:  RE: Can I get the Day of the week?



The one problem I have with most of these suggestions is that the date is
then dependant upon a known date. Doesn't other people see something wrong
with this?

Mike

-----Original Message-----
From: boldt@ca.ibm.com [mailto:boldt@ca.ibm.com]
Sent: Wednesday, May 16, 2001 7:12 AM
To: rpg400-l@midrange.com
Subject: Re: Can I get the Day of the week?


From: "Christopher J. Devous" <cdevous@antigua.com>
Subject: RE: Can I get the Day of the week?
Christopher wrote:
>Try this, it's based on the famous "Doomsday" algorithm by JH Conway:
>
>    100
**************************************************************************
>    200       ***
>    300       ***      Program Name --  DOWK
>    400       ***      Description  --  Calculate Day of Week from
Gregorian
>    500       ***                       Date
>    600       ***      Author       --  Christopher J. Devous

As much as I respect John Horton Conway, RPG programmers can't do
day of week computation much shorter than with this procedure:

 //\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\//
 // Procedure:  DayOfWeek                                           //
 // Purpose:  Determine the day of week for a particular date       //
 // Parameters:                                                     //
 //    I: dt   -- date                                              //
 // Returns:                                                        //
 //    0..6    -- 0=Sunday, 1=Monday, 2=Tuesday, etc.               //
 // Notes:                                                          //
 //    January 5, 1800 is a Sunday.  This procedure only works for  //
 //    dates later than 1800-01-05.                                 //
 //\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\//
P DayOfWeek       b
D DayOfWeek       pi            10i 0
D   dt                            d   value datfmt(*iso)
 /free
    return %rem (%diff (dt: d'1800-01-05': *days): 7);
 /end-free
P DayOfWeek       e





Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.com

+---
| 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
+---
+---
| 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
+---



______________________________________________________________________
Important Email Information



The information in this email is confidential and may be legally
privileged. It is intended solely for the addressee. Access to this email
by anyone else is unauthorized. If you are not the intended recipient, any
disclosure, copying, distribution or any action taken or omitted to be
taken in reliance on it, is prohibited and may be unlawful. If you are not
the intended addressee please contact the sender and dispose of this
e-mail.


+---
| 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
+---