Merge pull request #90 from mrdomino/date-bug

Fix quadricentennial leap years in yawn
This commit is contained in:
johncburnham 2013-11-24 11:35:56 -08:00
commit 1e331d9bf0

View File

@ -1364,7 +1364,7 @@
?. =(0 (mod yer 100))
$(yer (sub yer 4), day (add day 1.461))
?. =(0 (mod yer 400))
$(yer (sub yer 100), day (add day 36.524))
$(yer (sub yer 100), day (add day 36.525))
(add day (mul (div yer 400) (add 1 (mul 4 36.524))))
::
++ yelp