Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.lang.forth > #56160
| From | Ron Aaron <rambamist@gmail.com> |
|---|---|
| Newsgroups | comp.lang.forth |
| Subject | Re: Find day of week from a given date |
| Date | 2017-03-23 06:57 +0200 |
| Organization | A noiseless patient Spider |
| Message-ID | <oavkdf$v2s$1@dont-email.me> (permalink) |
| References | <26f921a3-3e9b-4292-a5e7-4f2e2ef0de99@googlegroups.com> <DyJrz7AUQoB@allinger-307049.user.uni-berlin> <58d2aa8b$0$722$e4fe514c@news.xs4all.nl> |
On 22/03/2017 18:47, Hans Bezemer wrote: > : JDAY ( d m y -- jd) \ day, month, year to Julian date > swap dup 2 > if 3 - swap else 9 + swap 1- then rot >r swap >r 100 /mod >r > 1461 * 4 / r> 146097 * 4 / + r> 153 * 2 + 5 / + r> + 1721119 + > ; > > : WEEKDAY jday 7 mod ; ( d m y -- n) > > Does the trick. > > Hans Bezemer In 8th I would do something like: : dow \ date -- dow d:>fixed 7 mod ; So: "2017-03-23" d:parse dow . would print 4 (Thursday; Sunday is 0, etc). The algorithm from "Calendrical Calculations" is used to represent dates in "fixed" format internally (with a separate time field, rather than using floating-point for the fixed value as CC does).
Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread
Find day of week from a given date Mark Wills <markwills1970@gmail.com> - 2017-03-21 11:51 -0700
Re: Find day of week from a given date "Wolfgang Allinger" <all2001@spambog.com> - 2017-03-21 18:17 -0300
Re: Find day of week from a given date Hans Bezemer <the.beez.speaks@gmail.com> - 2017-03-22 17:47 +0100
Re: Find day of week from a given date "Wolfgang Allinger" <all2001@spambog.com> - 2017-03-22 20:52 -0300
Re: Find day of week from a given date Ron Aaron <rambamist@gmail.com> - 2017-03-23 06:57 +0200
Re: Find day of week from a given date hughaguilar96@gmail.com - 2017-03-22 19:16 -0700
Re: Find day of week from a given date hughaguilar96@gmail.com - 2017-03-22 19:25 -0700
Re: Find day of week from a given date hughaguilar96@gmail.com - 2017-03-22 21:28 -0700
Re: Find day of week from a given date Alex <alex@rivadpm.com> - 2017-03-23 14:12 +0000
Re: Find day of week from a given date hughaguilar96@gmail.com - 2017-03-23 16:25 -0700
Re: Find day of week from a given date hughaguilar96@gmail.com - 2017-03-23 22:02 -0700
Re: Find day of week from a given date hughaguilar96@gmail.com - 2017-03-23 23:07 -0700
Re: Find day of week from a given date Alex <alex@rivadpm.com> - 2017-03-24 08:46 +0000
Re: Find day of week from a given date Mark Wills <markwills1970@gmail.com> - 2017-03-23 05:35 -0700
Re: Find day of week from a given date hughaguilar96@gmail.com - 2017-03-23 15:23 -0700
Re: Find day of week from a given date Mark Wills <markwills1970@gmail.com> - 2017-03-24 09:38 -0700
Re: Find day of week from a given date hughaguilar96@gmail.com - 2017-03-24 10:24 -0700
Re: Find day of week from a given date Cecil Bayona <cbayona@cbayona.com> - 2017-03-24 13:32 -0500
Re: Find day of week from a given date Mark Wills <markwills1970@gmail.com> - 2017-03-24 12:19 -0700
Re: Find day of week from a given date Cecil Bayona <cbayona@cbayona.com> - 2017-03-24 16:01 -0500
Re: Find day of week from a given date Mark Wills <markwills1970@gmail.com> - 2017-03-24 12:00 -0700
Re: Find day of week from a given date Mark Wills <markwills1970@gmail.com> - 2017-03-24 12:19 -0700
Re: Find day of week from a given date hughaguilar96@gmail.com - 2017-03-24 23:35 -0700
Re: Find day of week from a given date Mark Wills <markwills1970@gmail.com> - 2017-03-25 01:59 -0700
Re: Find day of week from a given date Julian Fondren <julian.fondren@gmail.com> - 2017-03-25 02:50 -0700
Re: Find day of week from a given date Mark Wills <markwills1970@gmail.com> - 2017-03-25 04:37 -0700
Re: Find day of week from a given date hughaguilar96@gmail.com - 2017-03-25 12:32 -0700
Re: Find day of week from a given date Cecil Bayona <cbayona@cbayona.com> - 2017-03-25 14:56 -0500
Re: Find day of week from a given date hughaguilar96@gmail.com - 2017-03-26 02:27 -0700
Re: Find day of week from a given date Cecil Bayona <cbayona@cbayona.com> - 2017-03-26 14:07 -0500
Re: Find day of week from a given date Mark Wills <markwills1970@gmail.com> - 2017-03-24 13:17 -0700
Re: Find day of week from a given date Howerd <howerdo@yahoo.co.uk> - 2017-03-24 14:43 -0700
Re: Find day of week from a given date Mark Wills <markwills1970@gmail.com> - 2017-03-24 15:36 -0700
Re: Find day of week from a given date hughaguilar96@gmail.com - 2017-03-24 23:47 -0700
Re: Find day of week from a given date Julian Fondren <julian.fondren@gmail.com> - 2017-03-25 03:00 -0700
Re: Find day of week from a given date "Wolfgang Allinger" <all2001@spambog.com> - 2017-03-25 09:06 -0300
Re: Find day of week from a given date Mark Wills <markwills1970@gmail.com> - 2017-03-24 12:28 -0700
Re: Find day of week from a given date Julian Fondren <julian.fondren@gmail.com> - 2017-03-24 12:49 -0700
Re: Find day of week from a given date Mark Wills <markwills1970@gmail.com> - 2017-03-24 13:15 -0700
Re: Find day of week from a given date hughaguilar96@gmail.com - 2017-03-26 14:49 -0700
Re: Find day of week from a given date hughaguilar96@gmail.com - 2017-03-26 17:08 -0700
Re: Find day of week from a given date humptydumpty <ouatubi@gmail.com> - 2017-03-25 04:23 -0700
Re: Find day of week from a given date hughaguilar96@gmail.com - 2017-03-26 15:00 -0700
Re: Find day of week from a given date humptydumpty <ouatubi@gmail.com> - 2017-03-27 00:50 -0700
Re: Find day of week from a given date hughaguilar96@gmail.com - 2017-03-27 09:14 -0700
Re: Find day of week from a given date "Robert L." <No_spamming@noWhere_7073.org> - 2017-03-29 08:23 +0000
csiph-web