Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.lang.forth > #56441
| From | "Robert L." <No_spamming@noWhere_7073.org> |
|---|---|
| Newsgroups | comp.lang.forth |
| Subject | Re: Find day of week from a given date |
| Date | 2017-03-29 08:23 +0000 |
| Organization | Aioe.org NNTP Server |
| Message-ID | <obfqt9$pkv$1@gioia.aioe.org> (permalink) |
| References | <26f921a3-3e9b-4292-a5e7-4f2e2ef0de99@googlegroups.com> |
On 3/21/2017, Mark Wills wrote:
> 3 12 1970 dow .
> 4 ok:0
>
> Yay. I was born on a Thursday. Thursday is now my favourite day of the week!
>
> variable year
> variable month
> variable day
>
> create years 0 c, 3 c, 3 c, 6 c, 1 c, 4 c, 6 c, 2 c, 5 c, 0 c, 3 c, 5 c,
> create leap-years 6 c, 2 c, 3 c, 6 c, 1 c, 4 c, 6 c, 2 c, 5 c, 0 c, 3 c, 5 c,
> create centuries 4 c, 2 c, 0 c, 6 c,
>
> : century ( year - n )
> 1700 /mod drop 100 / 4 mod centuries + c@ ;
>
> : leapYear? ( year - flag )
> dup >r 400 mod 0= r@ 100 mod 0<> or r> 4 mod 0= and ;
>
> : dow ( day month year -- n )
> dup century >r 100 mod year ! 1- month ! day !
> r> year @ dup 4 / day @
> year @ leapYear? if leap-years else years then month @ + c@
> + + + + 7 mod ;
Ruby:
require 'date'
==>true
Date.new(1970,12,3).wday
==>4
--
Jewish drug dealers, child porn pushers, and slave traders are free
from prosecution in Israel. Israel does not consider these to be
crimes ... so long as the victims are non-Jews.
www.theoccidentalobserver.net/2009/08/the-culture-of-deceit/
Back to comp.lang.forth | Previous | Next — Previous 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