Функция НОМИНАЛ в Vba

[Анастасий]

В общем такой трабл, в лабе надо было реализовать следующие:
Возвращает номинальную годовую ставку, если заданы эффективная (фактическая) ставка и число периодов в году, за которые начисляются сложные проценты.
Все сделал, проработчику сдал ее, а вот лектор не хочет принимать. Ошибки он пометил желтым и синим цветом. Может у кого то есть идеи как сделать так, чтоб угодить ему.

 

[VBAaddict]

У меня _2003_ ENG, там =NOMINAL(A6;B6) не существует, поэтому проверить подробно не смогу
Ощущения:
1) Желтое - ваша функция обрабатывает значение как есть, в то время как та, которую вы называете
Стандартная функция НОМИНАЛ на самом деле округляет периоды
=(((A6+1)^(1/INT(B6)))-1)*INT(B6) дает тот же результат, что и "Стандартная функция НОМИНАЛ"
2) Синее - я лично ЗА защиту от дураков
поэтому в VBA функцию я бы запихнул что-то более информативное типа:
- Ошибка! Отрицательная ставка
- Ошибка! Отрицательное количество периодов

 

[Анастасий]

Почему то не работает ничего :angry: Делал вот так:

If y < 1 Then
tmp = "Ошибка! Отрицательное количество периодов!"
GoTo Error
Error:
nom = tmp
End If

If x <= 0 Then
tmp2 = "Ошибка! Отрицательная ставка!"
GoTo Error2
Error2:
nom = tmp2
End If