EvalDate

(Available in 00 TS Base(Base) - TS_Base_0_Traverse)

Source

METHOD EvalDate( dItem AS DATE ) AS VOID PASCAL CLASS TS_Traverse
   SELF:Dates+=1U
   IF dItem==NULL_DATE
      SELF:NullDates+=1U
   END
   IF SELF:_Profiling
      IF LOGIC( _CAST, dItem )
         SELF:_ProfileAddString( "D" )
      ELSE
         SELF:_ProfileAddString( "d" )
      END
   END
RETURN