anchor.diff:  function ConvertDoubleListToVariant (const aList : TDoubleList): Variant;
   function ConvertDoublesToVariant(const aValue1, aValue2: double): Variant;
   function ConvertIntegersToVariant(const aValue1, aValue2: integer): Variant;
  +function ConvertDatesToVariant(const aValue1, aValue2 : TDate): Variant;
   
   function GetCPUCores : integer;
   function GetApplicationLocalDataFolder (const aApplicationSubDir : string) : String;
  
positive.code: // http://users.atw.hu/delphicikk/listaz.php?id=2189&oldal=11
  function DateTimeStrEval(const DateTimeFormat: string; const DateTimeStr: string): TDateTime;
  
  // https://code.google.com/p/theunknownones/
  function VarRecToVariant (AValue : TVarRec) : Variant;
  
  
negative.code:   Result := Retvar;
  end;
  
  function DateToJsonString(const aValue: TDate): String;
  begin
    Result := FormatDateTime('yyyy"-"mm"-"dd"Z"', aValue);
  end;
  
  function TimeToJsonString(const aValue: TTime): String;
  begin
    Result := FormatDateTime('"T"hh":"mm":"ss"Z"', aValue);
  end;
  
  function DateTimeToJsonString(const aValue: TDateTime): String;
  begin
    Result := FormatDateTime('yyyy"-"mm"-"dd"T"hh":"mm":"ss"Z"', aValue);
  end;
  
  function TryToUnderstandJsonDateString(const aInputString: string; out aValue: TDate): boolean;
  begin
    Result := false;
    aValue := trunc(DateTimeStrEval('yyyy-mm-ddZ', aInputString));
    Result := (aValue > 0);
  end;
  
  function TryToUnderstandJsonTimeString(const aInputString: string; out aValue: TTime): boolean;
  begin
    Result := false;
    aValue := DateTimeStrEval('Thh:mm:ssZ', aInputString);
    if aValue > 0 then
    begin
      Result := true;
      aValue := aValue - trunc(aValue);
    end;
  end;
  
  function TryToUnderstandJsonDateTimeString(const aInputString: string; out aValue: TDateTime): boolean;
  var
    v : TDateTime;
  begin
    Result := false;
    aValue := DateTimeStrEval('yyyy-mm-ddThh:mm:ssZ', aInputString);
    Result := (aValue > 0);
  end;
  
  {$IFDEF FPC}
  function CharInSet(C: Char; const CharSet: TSysCharSet): Boolean;
  begin
  