Hi Neil,
    Just for the record... the U.S. military does prefer to write dates in
the format of dd mmm, ccyy (tho century gets left off alot!)

     I was told in grade school when I asked why we write our dates
opposite of the English that it was for the same reason we drive on the
opposite side of the road.... :) hehehe

Art "Boy is it ever Monday! " Bahrs




From: [log in to unmask] on 03/20/98 09:09 PM

Please respond to [log in to unmask]


To:   [log in to unmask]
cc:    (bcc: Art H Bahrs/BCBSO/TBG)
Subject:  DOW Calculator




I found this command file on my system - haven't had a chance to
understand it, but it does seem to work.
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 ;)
It probably originated in the USA, because it wants dates in mm dd yyyy
format. This can easily be changed.
I've never really understood why US dates are month day year - is it
because that's how you say the date in the US - July 14, 1998?
Having said that, the typical English date of dd mm yyyy is just as
useless for comparisons etc.
We store dates in computers as yyyy (don't we?!) mm dd, so why not enter
and show them like that?
Regards
Neil


/dow 07 09 1996
Date        = 7/9/1996
Day of week = 2
Day name    = Tuesday
/:help dow
USER DEFINED COMMAND FILE:  DOW.CMD.SYS
PARM p1="!hpmonth" p2="!hpdate" p3="19!hpyear"
SETVAR _dow_month ![UPS("!p1")]
SETVAR _dow_day   ![UPS("!p2")]
SETVAR _dow_year  ![LFT("19!hpyear",4-LEN("!p3"))+"!p3"]
SETVAR _dow_days  "Sun   Mon   Tues  WednesThurs Fri   Satur  "
SETVAR _dow_xyear     _dow_year-((12-_dow_month)/10)
SETVAR _dow_xmonth    _dow_month+(((12-_dow_month)/10)*12)
SETVAR _dow_xday      _dow_day+(_dow_xmonth*2)+(((_dow_xmonth+1)*6)/10)
SETVAR _dow_leap_year (_dow_xyear/4) - (_dow_xyear/100) +
(_dow_xyear/400)
SETVAR _dow_xday      (_dow_xday+_dow_xyear+_dow_leap_year+1) MOD 7
SETVAR _dow_xdays     STR(_dow_days,_dow_xday*6+1,6)
ECHO Date        = !_dow_month/!_dow_day/!_dow_year
ECHO Day of week = !_dow_xday
ECHO Day name    = ![RTRIM(_dow_xdays)]day
DELETEVAR _dow_@
/