anchor.diff:      Result := Date - TempDouble;
     end
     else
  -  if CompareText(funct, mp_specfunc_now) = 0 then
  +  if CompareText(funct, mpFunction_now) = 0 then
     begin
       if ParametersList.Count <> 1 then
         RaiseError(sWrongParamCount);
  
positive.code:   if ParametersList.Count = 1 then
    begin
      lowercaseFunct := LowerCase(funct);
      k := Pos(mp_rangefunc_childsnotnull, lowercaseFunct);
      if k >= 1 then
      begin
        TempString := Copy(funct, k + length(mp_rangefunc_childsnotnull), length(funct));
        DoInternalRangeCalculate(mp_rangefunc_childsnotnull, InsideBraces(TempString), ValueType, TempValuesArray);
        exit;
      end;
      k := Pos(mp_rangefunc_parentnotnull, lowercaseFunct);
      if k >= 1 then
      begin
        TempString := Copy(funct, k + length(mp_rangefunc_childsnotnull), length(funct));
        DoInternalRangeCalculate(mp_rangefunc_childsnotnull, InsideBraces(TempString), ValueType, TempValuesArray);
        exit;
      end;
      k := Pos(mp_rangefunc_parentsnotnull, lowercaseFunct);
      if k >= 1 then
      begin
        TempString := Copy(funct, k + length(mp_rangefunc_childsnotnull), length(funct));
        DoInternalRangeCalculate(mp_rangefunc_childsnotnull, InsideBraces(TempString), ValueType, TempValuesArray);
        exit;
      end;
      k := Pos(mp_rangefunc_childs, lowercaseFunct);
      if k >= 1 then
      begin
        TempString := Copy(funct, k + length(mp_rangefunc_childsnotnull), length(funct));
        DoInternalRangeCalculate(mp_rangefunc_childsnotnull, InsideBraces(TempString), ValueType, TempValuesArray);
        exit;
      end;
  
      k := Pos(mp_rangefunc_parents, lowercaseFunct);
      if k >= 1 then
      begin
        TempString := Copy(funct, k + length(mp_rangefunc_childsnotnull), length(funct));
        DoInternalRangeCalculate(mp_rangefunc_childsnotnull, InsideBraces(TempString), ValueType, TempValuesArray);
        exit;
      end;
  
      k := Pos(mp_rangefunc_parent, lowercaseFunct);
      if k >= 1 then
      begin
        TempString := Copy(funct, k + length(mp_rangefunc_childsnotnull), length(funct));
        DoInternalRangeCalculate(mp_rangefunc_childsnotnull, InsideBraces(TempString), ValueType, TempValuesArray);
        exit;
      end;
    end;
  
negative.code:     end;
    end
    else
    if CompareText(funct, mpFunction_min) = 0 then
    begin
      ManageRangeFunction(funct,ParametersList, vtString, TempStrArray);
      Result := '';
  