🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.asm370
Article #948

day of week

#948
From: Cem Turgay
Date: Fri, 05 Jan 1990 14:12
31 lines
1768 bytes
Hello,

I don't use rexx code for day of week calculation because I have a rexx
callable 'DAY MODULE' which has fully 'invalid dates' controlled.
It runs between year 0001 to 9999.

Some examples;

days = Day('01/10/1200','B'))   /* 438199 */

user_day='29/02/1884'

If Day(user_day,'C') Then Say Day(user_day)
     /* 1 (true) */           /* Friday */

B (basedate) returns number of days since the 01/01/0001 till given date
C (control) returns 0 or 1. False when the date format is wrong or
  date is not exists
W (weekday) returns day of week. example; Monday

If you want DAY MODULE please drop a note 'PROHVK32@TREARN Cem Turgay'
or 'PROHVK33@TREARN Engin Tavsanli' and add 2 for writters due B-)))


********************************************************don't*worry*****
* Ege University        *       Cem Turgay         *     *   *   *     *
* Computer Research &   *   OEYO8729 & OPRJ14 &    *   *     *     *   *
* Practice Center       *   PROHVK32 @ TREARN      *   *   * * *   *   *
* Computer programming  ****************************   *  *  *  *  *   *
* student & programmer  * I know that I don't know *     *   *   *     *
***********************************************************be*happy*****
Technical Details
Message-ID: <9001051412.AA20849@brazos.rice.edu>
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!wuarchive!decwrl!ucbvax!TREARN.BITNET!PROHVK32

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!wuarchive!decwrl!ucbvax!TREARN.BITNET!PROHVK32
From: PROHVK32@TREARN.BITNET (Cem Turgay)
Newsgroups: comp.lang.asm370
Subject: day of week
Message-ID: <9001051412.AA20849@brazos.rice.edu>
Date: 5 Jan 90 14:12:12 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: IBM 370 Assembly Programming Discussion List <ASM370%UCF1VM.BITNET@ricevm1.rice.edu>
Distribution: inet
Organization: The Internet
Lines: 31
X-Unparsable-Date: Fri, 5 Jan 90 15:59:21 TUR