Changeset 0e51c9d in tol

Timestamp:

Jan 20, 2014, 11:24:37 AM (13 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

d218846

Parents:

b3404fe

Message:

Fix #1744

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@6133 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/btol/date_type/dtegra.cpp (modified) (1 diff)

tol/btol/date_type/dtegra.cpp

@@ -400 +400 @@
 }
 
+//--------------------------------------------------------------------
+DeclareContensClass(BDate, BDteTemporary, BDteLastNotEqual);
+DefExtOpr(1, BDteLastNotEqual, "LastNotEqual", 3, 3, "Serie Date Real",
+  I2("(Serie ser, Date from, Real value)",
+     "(Serie ser, Date desde, Real valor)"),
+  I2("Returns the first previuos date to a given date, for the one which "
+     "the value of a series is different of a given value.",
+     "Devuelve la primera fecha anterior a una dada para la que el valor de "
+     "una serie es distinto de un valor dado."),
+          BOperClassify::TimeAlgebra_);
+//--------------------------------------------------------------------
+void BDteLastNotEqual::CalcContens()
+//--------------------------------------------------------------------
+{
+    BUserTimeSerie* ser = Tsr (Arg(1));
+    BUserTimeSet*         tms   = ser->Dating();
+    BDate                 first = Date (Arg(2));
+    BDat                  val   = Dat  (Arg(3));
+    
+    if(!tms) { contens_ = BDate::Unknown(); return; }
+    while((*ser)[first]==val) { first-=tms; } ;
+    contens_ = first;
+}
+
+
 
 //--------------------------------------------------------------------