Corrupción de TimeSets

[Pedro Gea]

El código siguiente:

TimeSet auxiliar = Range(M(1)*D(1),0,6)*WD(1);
Real Belong(y2007, auxiliar);         //=> 1
Real Belong(y2008m01d07, auxiliar);   //=> 1
Real DateDif(auxiliar, y2000, y2200); //=> 0
Real Belong(y2007, auxiliar);         //=> 1
Real Belong(y2008m01d07, auxiliar);   //=> 0

corrompe el TimeSet creado.

Los resultados puesto en comentarios corresponde a la versión v3.1 p014 2012-09-19 09:23:44 i686-win.

En otras versiones de TOL los resultados son distintos:

• En v2.0.1 b.9.01 2012-03-06 18:40:23 i686-win funcionaba correctamente devolviendo:

  // => 1
  // => 1
  // => 200
  // => 1 
  // => 1
  

• En v3.2 b018 2013-05-22 08:00:05 i686-win funciona distinto pero falla igualmente. Devuelve: 1, 1, 189, 0 y 0.

  // => 1
  // => 1
  // => 189
  // => 0 
  // => 0
  

Véase #1643.

[Pedro Gea]

El error está vinculado a la elección de las fechas por defecto. La separación entre ambas se utiliza en los límites para lanzar la advertencia de sucesor abortado.

Puede notarse la diferencia al modificarlas. Por ejemplo:

Date DefFirst := y1990;
Date DefLast := y2100;