Update of /cvsroot/aimmath/AIM/WEB-INF/maple
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27620
Modified Files:
Date.mpl
Log Message:
Not that it matters much, but the 'WeekDay', 'WeekDayName', etc. methods of
the Date class were not being set correctly (they needed to take account of
the fact that 1 January, 1970 was a Thursday). Now they are. - GG
Index: Date.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/Date.mpl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Date.mpl 29 Aug 2004 20:34:50 -0000 1.7
--- Date.mpl 30 Aug 2004 06:24:16 -0000 1.8
***************
*** 549,553 ****
this['Second'] := second;
! this['WeekDay'] := irem(iquo(this['Raw'] + offset,86400),7);
fi;
--- 549,554 ----
this['Second'] := second;
! ### 1 January, 1970 was a Thursday
! this['WeekDay'] := irem(iquo(this['Raw'] + offset,86400) + 4,7);
fi;
***************
*** 611,615 ****
this['Raw'] := raw - offset;
! this['WeekDay'] := irem(iquo(raw,86400),7);
end
],
--- 612,617 ----
this['Raw'] := raw - offset;
! ### 1 January, 1970 was a Thursday
! this['WeekDay'] := irem(iquo(raw,86400) + 4,7);
end
],
|
