Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!think.com!mintaka!bloom-beacon!eru!hagbard!sunic!ericom!ericom!solsta.ericsson.se!etxbjk From: etxbjk@solsta.ericsson.se (Bjorn Karlsen TX/DKI) Newsgroups: comp.lang.pascal Subject: Re: Leap year function Message-ID: Date: 24 May 91 11:57:07 GMT References: <15921@ms.maus.de> <4165@jethro.Corp.Sun.COM> Sender: news@ericsson.se Distribution: world,comp Organization: Ericsson Telecom AB, Karlstad, Sweden. Lines: 53 In-Reply-To: acm@Sun.COM's message of 22 May 91 20: 31:58 GMT Nntp-Posting-Host: solsta.ericsson.se >In the backward direction, the problem with the rule mentioned in the previous >posting is that it only takes you back to the year 1722 (I think). That was >year that eleven days were dropped from the calendar. Unless you account for >that you are still off. (I may be off on the exact year.) The only program >that I am familier with that *does* handle those missing eleven days is a >calendar program running (I think) under UNIX. The year was 1752. Here's the output from UNIX' cal: 1752 Jan Feb Mar S M Tu W Th F S S M Tu W Th F S S M Tu W Th F S 1 2 3 4 1 1 2 3 4 5 6 7 5 6 7 8 9 10 11 2 3 4 5 6 7 8 8 9 10 11 12 13 14 12 13 14 15 16 17 18 9 10 11 12 13 14 15 15 16 17 18 19 20 21 19 20 21 22 23 24 25 16 17 18 19 20 21 22 22 23 24 25 26 27 28 26 27 28 29 30 31 23 24 25 26 27 28 29 29 30 31 Apr May Jun S M Tu W Th F S S M Tu W Th F S S M Tu W Th F S 1 2 3 4 1 2 1 2 3 4 5 6 5 6 7 8 9 10 11 3 4 5 6 7 8 9 7 8 9 10 11 12 13 12 13 14 15 16 17 18 10 11 12 13 14 15 16 14 15 16 17 18 19 20 19 20 21 22 23 24 25 17 18 19 20 21 22 23 21 22 23 24 25 26 27 26 27 28 29 30 24 25 26 27 28 29 30 28 29 30 31 Jul Aug Sep S M Tu W Th F S S M Tu W Th F S S M Tu W Th F S 1 2 3 4 1 1 2 14 15 16 5 6 7 8 9 10 11 2 3 4 5 6 7 8 17 18 19 20 21 22 23 12 13 14 15 16 17 18 9 10 11 12 13 14 15 24 25 26 27 28 29 30 19 20 21 22 23 24 25 16 17 18 19 20 21 22 26 27 28 29 30 31 23 24 25 26 27 28 29 30 31 Oct Nov Dec S M Tu W Th F S S M Tu W Th F S S M Tu W Th F S 1 2 3 4 5 6 7 1 2 3 4 1 2 8 9 10 11 12 13 14 5 6 7 8 9 10 11 3 4 5 6 7 8 9 15 16 17 18 19 20 21 12 13 14 15 16 17 18 10 11 12 13 14 15 16 22 23 24 25 26 27 28 19 20 21 22 23 24 25 17 18 19 20 21 22 23 29 30 31 26 27 28 29 30 24 25 26 27 28 29 30 31 -- ========================================================================= Bj|rn Karlsen etxbjk@solsta.ericsson.se Ericsson Telecom etx.etxbjk@memo.ericsson.se S-652 21 Karlstad, SWEDEN etxbjk@lmej.ericsson.se ========================================================================= "Det einaste eg var stiv i p} skulen, var nakken" - Trond Kirkvaag