home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / rexx / 643 < prev    next >
Encoding:
Text File  |  1992-07-21  |  1.5 KB  |  42 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!paladin.american.edu!auvm!AMAIL.AMDAHL.COM!CHIP.DAVIS
  3. X-Delivery-Notice:  SMTP MAIL FROM does not correspond to sender.
  4. Message-ID: <m0mA8o4-0000cyC@juts.ccc.amdahl.com>
  5. Newsgroups: comp.lang.rexx
  6. Date:         Mon, 20 Jul 1992 21:07:00 ET
  7. Sender:       REXX Programming discussion list <REXXLIST@UGA.BITNET>
  8. From:         chip.davis@AMAIL.AMDAHL.COM
  9. Subject:      Re: Determining weekday given a date
  10. Comments: To: TSO-REXX%ucf1vm.cc.ucf.edu@juts.ccc.amdahl.com,
  11.               REXXLIST%ucf1vm.cc.ucf.edu@juts.ccc.amdahl.com
  12. Lines: 28
  13.  
  14. On Tuesday, 14 July 1992 12:50 PT, ts0007 said:
  15. >
  16. > Has anyone written a routine to take a date in the future
  17. > in some form (e.g. 080292), and determine if the day is a weekday (M-F)
  18. > or Sat/Sun?
  19. >
  20. > Perhaps someone knows of a way to easily do this.
  21.  
  22. The following exec will probably do what you want, and is considerably
  23. shorter than the universal CA/ACM routine posted.
  24. -Chip-
  25.  
  26. ------------------Top of Exec-------------------------
  27. /* Return the weekday name for an arbitrary date in this century */
  28.   wk = 'Sunday Monday Tuesday Wednesday Thursday Friday Saturday'
  29.   Parse Var wk wkday.0 wkday.1 wkday.2 wkday.3 wkday.4 wkday.5 wkday.6 .
  30.   Parse Value 31 30 30 30 30 With m. m.4 m.6 m.9 m.11 .
  31.   Parse Arg mm . '/' dd . '/' yy .
  32.   yr = yy + (yy = 0) * 100
  33.   m.2 = (yr // 4 = 0) + 28
  34.   d0 = ((yr - 1) % 4 + yr) // 7
  35.   d = 0
  36.   Do i = 1 To mm - 1
  37.     d = d + m.i
  38.   End i
  39.   d = (d + dd + d0) // 7
  40.   Return wkday.d
  41. -----------------------End of Exec-------------------------
  42.