!***************************************************************************!
!*                                                                         *!
!*                                 WDAY                                    *!
!*           ROUTINE to get the day of week within a basic program         *!
!*                                                                         *!
!***************************************************************************!

!                            Copyright (C) 1987
!                                    by
!                      Attorney's Title Services, Inc.
!                            All Rights Reserved

!                         Written by: Jim Benard
!
!Edit History:
!1.0  Feb 27, 1987 created. /jlb

               MAP1 JULIAN,            F, 6            !  Julian date
               MAP1 DATE1,             S, 10           !  Starting Date (ccyymmdd)

               MAP1 JYEAR,             F, 6            !  Current Year
               MAP1 JMONTH,            F, 6            !  Current Month
               MAP1 JDAY,              F, 6            !  Current Day
               MAP1 DATE'KEY,          S, 10,"19870227" !  Starting Date (ccyymmdd)

               MAP1 DAY'OF'WEEK( 7 ), S, 9             ! Day of the week.
                       DAY'OF'WEEK( 1 )  = "Monday"
                       DAY'OF'WEEK( 2 )  = "Tuesday"
                       DAY'OF'WEEK( 3 )  = "Wednesday"
                       DAY'OF'WEEK( 4 )  = "Thursday"
                       DAY'OF'WEEK( 5 )  = "Friday"
                       DAY'OF'WEEK( 6 )  = "Saturday"
                       DAY'OF'WEEK( 7 )  = "Sunday"

       !//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\!
       DAY'OF'WEEK:
               !*  Routine to calculate the day of the week using      *!
               !*  ancient calculations and virgin sacrifices.         *!
               !********************************************************!

               DATE1 = STR(DATE'KEY)
               JYEAR  = VAL( DATE1[1,4] )
               JMONTH = VAL( DATE1[5,6] )
               JDAY   = VAL( DATE1[7,8] )

               IF (JMONTH > 2) THEN JMONTH = JMONTH - 2                &
                  ELSE JMONTH = JMONTH + 10                            &
:                       JYEAR = JYEAR - 1

       JULIAN = ( INT(365.25 * JYEAR) + INT(367 * JMONTH/12) + JDAY + 1721089 )
       JULIAN = ( JULIAN - INT((((INT(JYEAR/100) + 1) * 3) /4)))
                       !* Julian date. . .

       JDAY = INT( ((JULIAN/7 - INT(JULIAN/7)) * 7) + 0.5 ) + 1

       PRINT DAY'OF'WEEK(JDAY)

                       END

       !//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\!

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.