Fix XDATE.JDAY formula.

diff --git a/src/ChangeLog b/src/ChangeLog
index e4c9c91d887031e378c4e049b6a8147c4d94d38a..5d35363230eb8f64e4b390c1d80922aab72e08f9 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+Mon Nov 15 22:08:25 2004  Ben Pfaff  <blp@gnu.org>
+
+       * expr-evl.c: (expr_evaluate) Fix XDATE.JDAY formula.  Thanks to
+       John Darrington <john@darrington.wattle.id.au> for reporting this
+       bug.
+
 Tue Nov 16 13:19:18 WST 2004 John Darrington <john@darrington.wattle.id.au>
 
        * permissions.c command.def Added the PERMISSIONS command

diff --git a/src/expr-evl.c b/src/expr-evl.c
index 0432765825c507a66070e6252216a3bfd5dd93fa..8628cfd3c3b5c776aca4146b8c4497045df8c5c0 100644 (file)
--- a/src/expr-evl.c
+++ b/src/expr-evl.c
@@ -733,7 +733,7 @@ expr_evaluate (const struct expression *e, const struct ccase *c, int case_idx,
          break;
        case OP_XDATE_JDAY:
          if (sp->f != SYSMIS)
-           sp->f = 86400. * julian_to_jday (sp->f / 86400.);
+           sp->f = julian_to_jday (sp->f / 86400.);
          break;
        case OP_XDATE_MDAY:
          if (sp->f != SYSMIS)