comp.lang.ada
 help / color / mirror / Atom feed
From: Dave Thompson <david.thompson1@worldnet.att.net>
Subject: Re: need help with errors im getting
Date: Mon, 04 Jul 2005 05:38:37 GMT
Date: 2005-07-04T05:38:37+00:00	[thread overview]
Message-ID: <aofhc1p0gvdcpmfsocp3bvet3qm8uaq9ss@4ax.com> (raw)
In-Reply-To: l3eub1l2ru5pguun3kitesfmgnfngur7vp@4ax.com

On Sun, 26 Jun 2005 23:33:11 GMT, Dennis Lee Bieber
<wlfraed@ix.netcom.com> wrote:
<snip>
>          when February =>
>             if (Y mod 4) = 0 and (Y mod 400) /= 0 then
>                if D > 29 then

mod 4 except not mod 100 except YES mod 400
Either (@4= and @100/= ) or @400= 
or @4=  and (@100/= or @400= ) works.

For years 1940 .. 2020 which you noted earlier was one version of the
OP's spec, or up to 1901 .. 2099, @4= is enough. Of course, this is
the same line of thinking that gave us Y2K. At least in Ada any such
decisions can and should be selfdocumented and easy to find -- if not
necessarily to fix/change.

- David.Thompson1 at worldnet.att.net



  parent reply	other threads:[~2005-07-04  5:38 UTC|newest]

Thread overview: 10+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2005-06-24 21:59 need help with errors im getting ramesh
2005-06-24 22:42 ` Ed Falis
2005-06-25  1:43   ` ramesh
2005-06-25  6:17 ` Jeffrey Carter
2005-06-25 18:38   ` ramesh
     [not found]     ` <fovrb1t2l3nvsq6qden8vf2fkmgvg3614h@4ax.com>
     [not found]       ` <6g5sb1ptj1611oq6vbiirutlj9gv5lv39m@4ax.com>
2005-06-26  8:12         ` ramesh
2005-06-26  9:23           ` ramesh
     [not found]           ` <fu9ub1la6ofoc361j6pec48je2efh0b9e9@4ax.com>
     [not found]             ` <l3eub1l2ru5pguun3kitesfmgnfngur7vp@4ax.com>
2005-07-02  8:14               ` ramesh
2005-07-04  5:38               ` Dave Thompson [this message]
2005-07-04 21:16                 ` ramesh
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox