From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=unavailable autolearn_force=no version=3.4.4 Path: eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!feeder.erje.net!1.eu.feeder.erje.net!newsfeed.fsmpi.rwth-aachen.de!newsfeed.straub-nv.de!usenet.blueworldhosting.com!feeder01.blueworldhosting.com!peer02.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!post02.iad.highwinds-media.com!news.flashnewsgroups.com-b7.4zTQh5tI3A!not-for-mail From: Stephen Leake Newsgroups: comp.lang.ada Subject: Re: A few questions References: <86611l7fel.fsf@stephe-leake.org> <5cb53e97-658b-464e-b3e8-88d0d0c2cf17@googlegroups.com> Date: Mon, 02 Nov 2015 11:42:35 -0500 Message-ID: <861tc873pg.fsf@stephe-leake.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.5 (windows-nt) Cancel-Lock: sha1:sKvbd9e+K+zCo4qbdLM9iTKBN84= MIME-Version: 1.0 Content-Type: text/plain X-Complaints-To: abuse@flashnewsgroups.com Organization: FlashNewsgroups.com X-Trace: 0219556379282e97f808407647 X-Received-Bytes: 1348 X-Received-Body-CRC: 771574237 Xref: news.eternal-september.org comp.lang.ada:28177 Date: 2015-11-02T11:42:35-05:00 List-Id: Laurent writes: > On Sunday, 1 November 2015 19:17:44 UTC+1, Stephen Leake wrote: > >> > subtype Period is range Begin_Date .. End_Date; >> >> What operations to do want to have for this type? > > Hm none. Just would need the possibility to use it in a loop for the > 'Range. I'm guessing you want the loop to cover each day in the date range? In that case, Julian Days (or days since some other epoch) will allow this in a "for" loop. Or you can write a function: function Next_Day (I : in Date) return Date; and use that in an "exit" loop. -- -- Stephe