Article View: comp.lang.asm370
Article #948day of week
From: Cem Turgay
Date: Fri, 05 Jan 1990 14:12
Date: Fri, 05 Jan 1990 14:12
31 lines
1768 bytes
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!PROHVK32Show 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