On Tue, 30 Dec 2008, John Coppens wrote:
> On Tue, 30 Dec 2008 09:25:29 -0700 > "Seth Grover" <sethdgro...@gmail.com> wrote: > > > Is this broken or am I missing something? > > I suspect the problem is in this function: > > Function SecondsBetween(const ANow, AThen: TDateTime): Int64; > begin > Result:=Trunc(Abs(ANow-AThen)*SecsPerDay); > end; > > > from the dateutil.inc rtl library. The trunc function is no garantee for > a correct result, and can err downwards. I think it should be rounding > function, or add 0.0005 seconds (1/2 milisecond). Of course this also > depends on the sign of the result. Could you test your hypothesis and provide a patch ? Michael. _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
