anchor.diff:      Result := WeekOfTheYear(TempDouble);
     end
     else
  -  if CompareText(funct, mp_specfunc_getmonth) = 0 then
  +  if CompareText(funct, mpFunction_getmonth) = 0 then
     begin
       if ParametersList.Count <> 1 then
         RaiseError(SWrongParamCount);
  
positive.code:     Result := Copy(TempStrValue, round(TempValue), round(TempValue2));
    end
    else
    if CompareText(funct, mp_specfunc_sum) = 0 then
    begin
      ManageRangeFunction(funct,ParametersList, vtString, TempStrArray);
      Result := '';
  
negative.code:   else // calculation = calculateFunction
    begin
      Result := true;
      if compareText(subFormula, mpFunction_trunc) = 0 then
        resValue := trunc(resValue)
      else
      if compareText(subFormula, mpFunction_sin) = 0 then
        resValue := sin(resValue)
      else
      if compareText(subFormula, mpFunction_cos) = 0 then
        resValue := cos(resValue)
      else
      if compareText(subFormula, mpFunction_tan) = 0 then
        resValue := tan(resValue)
      else
      if compareText(subFormula, mpFunction_frac) = 0 then
        resValue := frac(resValue)
      else
      if compareText(subFormula, mpFunction_int) = 0 then
        resValue := int(resValue)
      else
      begin
  