anchor.diff:    tmpVariant : variant;
   begin
     tmpVariant := Variants.VarArrayCreate([0, 1], varinteger);
  +  VarArrayPut(tmpVariant, aValue1, [0]);
  +  VarArrayPut(tmpVariant, aValue2, [1]);
  +  Result := tmpVariant;
  +end;
  +
  +function ConvertDatesToVariant(const aValue1, aValue2: TDate): Variant;
  +var
  +  tmpVariant : variant;
  +begin
  +  tmpVariant := Variants.VarArrayCreate([0, 1], vardate);
     VarArrayPut(tmpVariant, aValue1, [0]);
     VarArrayPut(tmpVariant, aValue2, [1]);
     Result := tmpVariant;
  
positive.code:   Result := Retvar;
  end;
  
  {$IFDEF FPC}
  function CharInSet(C: Char; const CharSet: TSysCharSet): Boolean;
  begin
  
negative.code: // http://users.atw.hu/delphicikk/listaz.php?id=2189&oldal=11
  function DateTimeStrEval(const DateTimeFormat: string; const DateTimeStr: string): TDateTime;
  
  function DateToJsonString(const aValue : TDate): String;
  function TimeToJsonString(const aValue : TTime): String;
  function DateTimeToJsonString(const aValue : TDateTime): String;
  
  function TryToUnderstandJsonDateString(const aInputString: string; out aValue: TDate): boolean;
  function TryToUnderstandJsonTimeString(const aInputString: string; out aValue: TTime): boolean;
  function TryToUnderstandJsonDateTimeString(const aInputString: string; out aValue: TDateTime): boolean;
  
  // https://code.google.com/p/theunknownones/
  function VarRecToVariant (AValue : TVarRec) : Variant;
  
  