anchor.diff:  end;
   
   constructor TPOdj.Create(abs: string; rel: string);
  +var dt: TDateTime;
   begin
    Self.Create();
   
  
positive.code:   begin
     dt := json.D['absolute'];
     if (dt < timeHelper.hJopNow()) then
       raise Exception.Create('Nelze vytvoit PODJ do minulosti!');
     Self.abs := dt;
    end;
  
   if (json.Contains('relative')) then
    begin
     dt := json.D['relative'];
     ReplaceDate(dt, 0);
     Self.rel := dt;
    end;
  end;
  
negative.code: procedure TPOdj.GetPtData(json: TJsonObject);
  begin
   if (Self.rel_enabled) then
     json.S['relative'] := FormatDateTime('nn:ss', Self.rel);
   if (Self.abs_enabled) then
     json.D['absolute'] := Self.abs;
  end;
  