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

Hi James,

Well, you could change the base date from 0001-01-01 to 0001-01-07 and as
long as you're not worried about those 6 days <g>, it will adjust the day of
week so that 1-7 is Sun-Sat. I don't know when it became available either,
but it's in V4R4 at least.

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 5:10 PM
Subject: Re: Can I get the Day of the week?


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


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