From 092c4936336cb4cd705258471373400b060e9e46 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Fri, 22 Jun 2007 15:05:08 +0000 Subject: [PATCH] (math-format-date-part,calc-parse-standard-date,calcFunc-julian): Fix incorrect number used in calculations. --- lisp/ChangeLog | 6 ++++++ lisp/calc/calc-forms.el | 8 ++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c6ca51424b..24257e1c1f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2007-06-22 Jay Belanger + + * calc/calc-forms.el (math-format-date-part) + (calc-parse-standard-date,calcFunc-julian): Fix incorrect number + used in calculations. + 2007-06-22 Thien-Thi Nguyen * simple.el (next-error-recenter): New defcustom. diff --git a/lisp/calc/calc-forms.el b/lisp/calc/calc-forms.el index 1752340a3c..1ffe06249b 100644 --- a/lisp/calc/calc-forms.el +++ b/lisp/calc/calc-forms.el @@ -561,7 +561,7 @@ (math-format-number (math-add math-fd-date (eval-when-compile - (math-read-number-simple "1.7214235"))))) + (math-read-number-simple "1721423.5"))))) ((eq x 'j) (math-format-number (math-add (math-floor math-fd-date) @@ -944,7 +944,7 @@ (eval-when-compile (math-read-number-simple "1721424")) (eval-when-compile - (math-read-number-simple "1.7214235"))))) + (math-read-number-simple "1721423.5"))))) hour (or (nth 3 num) hour) minute (or (nth 4 num) minute) second (or (nth 5 num) second) @@ -1157,7 +1157,7 @@ (math-read-number-simple "1721424"))) (setq date (math-sub date (eval-when-compile - (math-read-number-simple "1.7214235")))) + (math-read-number-simple "1721423.5")))) (math-sub date (math-div (calcFunc-tzone zone date) '(float 864 2))))) (if (eq (car date) 'date) @@ -1166,7 +1166,7 @@ (math-read-number-simple "1721424")) (math-add (eval-when-compile - (math-read-number-simple "1.7214235")) + (math-read-number-simple "1721423.5")) (math-div (calcFunc-tzone zone date) '(float 864 2))))) (math-reject-arg date 'datep)))) -- 2.39.2