home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / BAS_SUB.ZIP / DAYOFWK.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-04-19  |  768 b   |  17 lines
  1. 10 ' DAYOFWK = Calculates the day of the week given date
  2. 20 '
  3. 30 CLS :PRINT
  4. 40 PRINT"   This routine calculates the day of the week given the date"
  5. 50 DIM DAYS$(6): FOR I=0 TO 6: READ DAY$(I): NEXT
  6. 60 DATA Saturday, Sunday, Monday, Tuesday, Wednesday, Thursday, Friday
  7. 70 LINE INPUT "Enter date as mm/dd/yyyy ";EDATE$ : S$= EDATE$
  8. 80 PS=INSTR(S$,"/"):  MONTH= VAL(LEFT$(S$,PS-1)):  S$= MID$(S$,PS+1)
  9. 90 PS=INSTR(S$,"/"):  DAY =  VAL(LEFT$(S$,PS-1)):  S$= MID$(S$,PS+1)
  10. 100 YEAR=VAL(S$)
  11. 110 '
  12. 120 IF MONTH>2 THEN 140
  13. 130 MONTH=MONTH+12 : YEAR=YEAR-1
  14. 140 N=DAY+2*MONTH+INT(.6*(MONTH+1))+YEAR+INT(YEAR/4)-INT(YEAR/100)+INT(YEAR/400)+  2
  15. 150 N=INT((N/7-INT(N/7))*7+.5)
  16. 160 PRINT DAY$(N)
  17.