diff options
| author | stanton <stanton> | 1999-05-14 18:29:49 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-05-14 18:29:49 (GMT) |
| commit | 489a58b5fc11bc30a2f91ed570afc77917e9b1c0 (patch) | |
| tree | 0744c75a4ad2d6ca5c131fb08410c2a2ac637119 /generic/tclDate.c | |
| parent | 8caafaac857b941a7f516eb457c9115cc870064e (diff) | |
| download | tcl-489a58b5fc11bc30a2f91ed570afc77917e9b1c0.zip tcl-489a58b5fc11bc30a2f91ed570afc77917e9b1c0.tar.gz tcl-489a58b5fc11bc30a2f91ed570afc77917e9b1c0.tar.bz2 | |
merged 1-3-b2 changes into mainline
Diffstat (limited to 'generic/tclDate.c')
| -rw-r--r-- | generic/tclDate.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/generic/tclDate.c b/generic/tclDate.c index cdbcfe8..3544737 100644 --- a/generic/tclDate.c +++ b/generic/tclDate.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclDate.c,v 1.4 1999/04/16 00:46:45 stanton Exp $ + * RCS: @(#) $Id: tclDate.c,v 1.5 1999/05/14 18:29:50 stanton Exp $ */ #include "tclInt.h" @@ -430,10 +430,12 @@ Convert(Month, Day, Year, Hours, Minutes, Seconds, Meridian, DSTmode, TimePtr) Julian += DaysInMonth[i]; if (Year >= EPOCH) { for (i = EPOCH; i < Year; i++) - Julian += 365 + (i % 4 == 0); + Julian += 365 + (((i % 4) == 0) && + (((i % 100) != 0) || ((i % 400) == 0))); } else { for (i = Year; i < EPOCH; i++) - Julian -= 365 + (i % 4 == 0); + Julian -= 365 + (((i % 4) == 0) && + (((i % 100) != 0) || ((i % 400) == 0))); } Julian *= SECSPERDAY; Julian += TclDateTimezone * 60L; |