From f9ce8d75ae81553d9aec05351cb2d12d0df33e5e Mon Sep 17 00:00:00 2001 From: Ben Pfaff Date: Tue, 16 Nov 2004 06:18:00 +0000 Subject: [PATCH] Fix XDATE.JDAY formula. --- src/ChangeLog | 6 ++++++ src/expr-evl.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index e4c9c91d..5d353632 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +Mon Nov 15 22:08:25 2004 Ben Pfaff + + * expr-evl.c: (expr_evaluate) Fix XDATE.JDAY formula. Thanks to + John Darrington for reporting this + bug. + Tue Nov 16 13:19:18 WST 2004 John Darrington * permissions.c command.def Added the PERMISSIONS command diff --git a/src/expr-evl.c b/src/expr-evl.c index 04327658..8628cfd3 100644 --- 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) -- 2.30.2