:DAYNUM 12,31,2006
DAYNUM = 0

PRINT DAYNUM
PARM VAR_MONTH="!HPMONTH" VAR_DAY="!HPDATE" VAR_YR="!HPYYYY"
SETVAR VAR_XYR !VAR_YR-((12-!VAR_MONTH)/10)
SETVAR VAR_XMONTH !VAR_MONTH+(((12-!VAR_MONTH)/10)*12)
SETVAR VAR_XDAY !VAR_DAY+(!VAR_XMONTH*2)+(((!VAR_XMONTH+1)*6)/10)
SETVAR VAR_LEAP_YR (VAR_XYR/4) - (VAR_XYR/100) + (VAR_XYR/400)
SETVAR VAR_XDAY (VAR_XDAY+VAR_XYR+VAR_LEAP_YR+1) MOD 7
ECHO DAYNUM = !VAR_XDAY
DELETEVAR VAR_@


----- Original Message -----
From: "Penney, John" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Friday, June 04, 2004 1:35 PM
Subject: [HP3000-L] Day of Week


> Gentle Listers:
>
> Pray tell, how does one determine the day-of-week it is? I vaguely recall
> some kind of Powerhouse or HP function like dayofweek = day(20040604)
> returning 5=Friday?
>
> Or was that in another incarnation? 8=)
>
> Many thanks for your input.
>
> Happy Friday in any event!
>
> John M Penney
> DDPS
> California Department of Corrections
> 1920 Alabama Ave.
> Rancho Cordova, CA
> (916)358-2247
> (916)358-2322 Fax
> (360)789-8159 Cellular
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *