Re: Can I get the Day of the week? -- RPG400-L

Hmm... I didn't know about this BIF.  I'll check to see if it works on my
machine (V4R1), not sure when it became available.

Only problem is that it will break our API.  All our apps think sunday is
day 1.  But I sure like the shortened code :)

On Tue, 15 May 2001, Peter Dow wrote:
> Hi James,
>
> Just for fun, how about using a BIF? I have no idea if it's faster; then
> again with today's processors, speed is not always a big issue. But it's
> shorter. And by using 0001-01-01 as the base, I don't have to worry about
> negatives. However, it does return Monday as 1 instead of the more
> traditional Sunday, and I have no idea if it's correcting for dates prior to
> 1533 or whenever it was that the calendar was adjusted...
>
> p getdayofweek    b
> d getdayofweek    pi             1s 0
> Mon-Sun = 1-7
> d  dateiso                        d   value
>
> c     dateiso       subdur    d'0001-01-01' numofdays:*D      7 0
> c                   return    %rem(numofdays:7) + 1
>
> p                 e
>
> Regards,
> Peter Dow
> Dow Software Services, Inc.
> 909 425-0194 voice
> 909 425-0196 fax
>
>
> ----- Original Message -----
> From: "James David Rich" <james@eaerich.com>
> To: <RPG400-L@midrange.com>
> Sent: Tuesday, May 15, 2001 2:22 PM
> Subject: Re: Can I get the Day of the week?
>
>
> > On Tue, 15 May 2001, Jade Richtsmeier wrote:
> >
> > > One our projects here prints a letter and we need to be able to print
> the
> > > day of the week of a given date.  I know that the system value
> QDAYOFWEEK
> > > tells me what the day of the week is for today, but how can I find out
> the
> > > day of the week for a given date?
> >
> > Here is the code we use (put this in a binding directory somewhere or
> > whatever you want):
> >
> > Pgetdayofweek     B                   EXPORT
> > Dgetdayofweek     PI             1S 0
> > D dateiso                       10D   VALUE
> > Dsunday           S               D   inz(d'1997-08-03')
> >
> > C     dateiso       subdur    sunday        numofdays:*D      7 0
> > C     numofdays     div       7             result            7 0
> > C                   mvr                     remainder         1 0
> >
> > C                   select
> > C                   when      remainder>=0
> > C                   return    remainder+1
> > C                   when      remainder<0
> > C                   return    remainder+8
> > C                   endsl
> >
> > Pgetdayofweek     E
> >
> > Any comments or improvements are welcome.
> >
> > James Rich
> > james@eaerich.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
> > +---
>
>
> _________________________________________________________
> Do You Yahoo!?
> Get your free @yahoo.com address at http://mail.yahoo.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
> +---
>

James Rich
james@eaerich.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
+---