Neil Harvey wrote:

The create date on the file is 09 Jul 1996, which was a Tuesday :).
It accepts years without centuries, but assumes 19 if this is so.

Maybe someone with energy can check it out for accuracy.
Maybe someone can own up as the author, and take credit ;)

<SNIP>

-------------------------Reply Separator-----------------

I posted a day-of-the-week command file some time ago.  However, even
though the algorithim is similar, the coding technique and design is
disimilar enough to indicate that it probably wasn't based on my
post.

This a re-post of the command file - it was written for demonstration
purposes, but could be easily hacked and used for practical purposes:

  parm d="01/01/2000"
  setvar cal_day "!d"
  setvar mo str(cal_day,1,2)
  setvar day str(cal_day,4,2)
  setvar year str(cal_day,7,(len(cal_day) - 6))
  setvar wkday "SUNMONTUEWEDTHUFRISAT"
  setvar wdleapy "034025036146"
  setvar wdleapn "144025036146"
  setvar century !year/100*100
  setvar yr !year-!century
  setvar wday wdleapn
  if (((!year mod 4) = 0) and ((!year mod 100) <> 0)) or ((!year mod 400) = 0)
       setvar wday wdleapy
  endif
  setvar dv str(wday,!mo,1)
  setvar dayval (!yr/4)+!yr+!dv+!day
  if (!century mod 400) = 0
       setvar dayval (!dayval - 1)
  endif
  setvar dayval (!dayval mod 7)
  if !dayval = 0
       setvar dayval 7
  endif
  setvar daywk str(wkday,(!dayval*3-2),3)
  echo The day of the week for !cal_day is !daywk.

We use a couple of CI date calculation programs for job scheduling
that - among other things - contain this day-of-the-week algorithym.
One of these calculates a date based on an integer offset between 0
and + or - 365 (zero being the current date. The other program
similarly calculates the first and last date of a month that is
derived from an offset of the current month.

We use a combination of these programs and the "editor" in batch mode
to perpetuate the automatic scheduling of periodic jobs. That is -
the last thing the batch job does is edit its own job stream with new
report dates (if required) and then re-stream itself using the dates
derived from the CI program(s).

If anyone is interested in obtaining these command files, please
e-mail me privately.

Steve Barrett

   ============================================================
   = Steven P. Barrett    [log in to unmask] =
   = Systems Analyst                                          =
   = Fairfax County Public Library     (703) 222-3132 - Voice =
   = Technical Operations Center       (703) 222-3135 - FAX   =
   = 4000 Stringfellow Rd.                                    =
   = Chantilly, VA  20151                                     =
   =                                                          =
   = --- The opinions expressed here are mine alone . ---     =
   ============================================================