anchor.diff:      result := uSelf.second > uOther.second
     else
       result := (uSelf.fraction > uOther.fraction);
  +end;
  +
  +class operator TDateTimeEx.add(a: TDateTimeEx; b: TDateTime): TDateTimeEx;
  +begin
  +  result := a.add(b);
   end;
   
   function TDateTimeEx.after(other : TDateTimeEx; inclusive : boolean) : boolean;
  
positive.code: 
      function clone : TDateTimeEx;
      function link : TDateTimeEx;
    end;
  
  {$IFDEF MSWINDOWS}
  
negative.code:   result.FPrecision := dtpNanoSeconds;
  end;
  
  class operator TDateTimeEx.NotEqual(a, b: TDateTimeEx): Boolean;
  begin
    result := not a.equal(b);
  end;
  
  function TDateTimeEx.notNull: boolean;
  begin
    result := Source <> '';
  