Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!brutus.cs.uiuc.edu!ux1.cso.uiuc.edu!ux1.cso.uiuc.edu!uxa.cso.uiuc.edu!eer36024
From: eer36024@uxa.cso.uiuc.edu
Newsgroups: comp.sys.atari.st
Subject: Re: Calendar Formula needed
Message-ID: <46300089@uxa.cso.uiuc.edu>
Date: 13 Mar 90 10:39:39 GMT
References: <53715@bu.edu.bu.edu>
Lines: 7
Nf-ID: #R:bu.edu.bu.edu:53715:uxa.cso.uiuc.edu:46300089:000:281
Nf-From: uxa.cso.uiuc.edu!eer36024    Mar 12 18:20:00 1990


This may be more than what you need.  This converts a year, month, and day
to a "Julian Day" number.  A Julian Day number MOD 7 = 0=Monday to 6=Sunday.

ALL '/'s = DIV, i.e.  A/B = A DIV B = TRUNC(A/B)

JD = 367*Y - 7*(Y+(M+9)/12)/4 - 3*((Y+(M-9)/7)/100+1)/4 + 275*M/9+D+1721029