diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2012-11-17 16:01:59 -0600 |
---|---|---|
committer | Jay Belanger <jay.p.belanger@gmail.com> | 2012-11-17 16:01:59 -0600 |
commit | 310e60d9454fe2d7e6920cf51f20d438e57f7b28 (patch) | |
tree | 53031f808541b9cdb2d17cc79a6b4168db5d0afc /lisp/calc/calc-forms.el | |
parent | d7fe635216f7ac026ede427198dbb75b238d3142 (diff) | |
download | emacs-310e60d9454fe2d7e6920cf51f20d438e57f7b28.tar.gz |
Calc now uses the Gregorian calendar for all dates,
and uses January 1, 1 AD as its day number 1.
* doc/misc/calc.texi (Date Forms): Document this.
* lisp/calc/calc-forms.el (math-julian-date-beginning)
(math-julian-date-beginning-int): Implement this.
Diffstat (limited to 'lisp/calc/calc-forms.el')
-rw-r--r-- | lisp/calc/calc-forms.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/calc/calc-forms.el b/lisp/calc/calc-forms.el index c1f6d03db80..d1df20c697c 100644 --- a/lisp/calc/calc-forms.el +++ b/lisp/calc/calc-forms.el @@ -656,13 +656,13 @@ in the Gregorian calendar." (setcdr math-fd-dt nil)) fmt)))) -(defconst math-julian-date-beginning '(float 17214235 -1) - "The beginning of the Julian calendar, -as measured in the number of days before January 1 of the year 1AD.") +(defconst math-julian-date-beginning '(float 17214225 -1) + "The beginning of the Julian date calendar, +as measured in the number of days before December 31, 1 BC (Gregorian).") -(defconst math-julian-date-beginning-int 1721424 - "The beginning of the Julian calendar, -as measured in the integer number of days before January 1 of the year 1AD.") +(defconst math-julian-date-beginning-int 1721423 + "The beginning of the Julian date calendar, +as measured in the integer number of days before December 31, 1 BC (Gregorian).") (defun math-format-date-part (x) (cond ((stringp x) |