anchor.diff:    end;
   end;
   
  -function TNullableDateTime.AsJson(const aFieldName: String; const aSkipIfNull: boolean): String;
  +function TNullableDateTime.AsJson(const aFieldName: String; const aSkipIfNull: boolean; const aMaxLength: integer = 0): String;
   begin
     if Self.IsNull and aSkipIfNull then
       Result := ''
  
positive.code:   inherited Destroy;
  end;
  
  procedure TNullableJsonHelper.AddValue(const aFieldName: String; const aValue: TAbstractNullable; const aSkipIfNull: boolean);
  var
    tmp : String;
  begin
    tmp := aValue.AsJson(aFieldName, aSkipIfNull);
    if tmp <> '' then
      FList.Add(tmp);
  end;
  
negative.code:   Result := TNullableTime.VariantToString(Self.AsVariant);
  end;
  
  function TNullableTime.AsJson(const aFieldName: String; const aSkipIfNull: boolean; const aMaxLength: integer = 0): String;
  begin
    if Self.IsNull and aSkipIfNull then
      Result := ''
  