0 / 0 / 0
Регистрация: 20.03.2015
Сообщений: 29
1

Не проходит компиляцию функция

20.03.2015, 00:12. Показов 388. Ответов 1
Метки нет (Все метки)

Раньше никогда не писала на VBA, только на С и С++. Сейчас задали написать пользовательскую функцию. Вроде все логично, но не работает. Почему? Excel 2010 года.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Function NPV(ByVal Capex As Double, ByVal VOpex As Double, ByVal Effect As Double, ByVal Profit As Double, ByVal Rate As Single, ByVal T As Integer) as Double
sum As Double
sum = 0
i As Integer
For i = 1 To T step 1
sum = sum + 1 / (1 + Rate) ^ i
Next i
NPV = -Capex - (0.1 * Capex + VOpex) * sum + Effect * Profit * sum
End Function
 
Sub test()
d = NPV(10, 10, 10, 10, 0.1, 10)
End Sub
Плиз, Хелп!!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.03.2015, 00:12
Ответы с готовыми решениями:

Не проходит компиляцию
Добрый вечер, форумчане! Необходимо реализовать функцию объединения двух списков, но так, чтобы в...

Программа проходит компиляцию, но не запускается
доброго времени суток. в адрессах 300h, 301h, 302h есть числа. программа должна их выровнять по...

Не проходит компиляцию простейший код
Здравствуйте. У меня есть программа Enlogic, для программирования ПЛК. В ней среди фукциональных...

Компиляцию проходит, но прога не запускается(
#include <fstream> #include <iostream> #include <iomanip> #define MIN_NEGATIVE_INT...

1
15038 / 6362 / 1726
Регистрация: 24.09.2011
Сообщений: 9,971
20.03.2015, 01:00 2
Visual Basic
1
2
3
4
5
6
7
8
9
Function NPV(ByVal Capex As Double, ByVal VOpex As Double, ByVal Effect As Double, ByVal Profit As Double, ByVal Rate As Single, ByVal T As Integer) As Double
Dim sum As Double, i As Integer
sum = 0 'необязательно
 
For i = 1 To T Step 1
sum = sum + 1 / (1 + Rate) ^ i
Next i
NPV = -Capex - (0.1 * Capex + VOpex) * sum + Effect * Profit * sum
End Function
и ByVal необязательно - функция не меняет значения передаваемых переменных.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.03.2015, 01:00

Код с неверным case проходит компиляцию
begin var x := 1; case x of; // <-- Разве должно компилироваться? 1: Writeln(1); 2:...

Почему не проходит компиляцию? выдает ошибку
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Программа для электрической схемы (не проходит компиляцию)
Здравствуйте..!! Посмотрите пожалуйста в чём проблема.. Хотел запустить программу из методички на...

Не проходит компиляцию, если возможно дайте переделанный код
#include <iostream> #include <string> using namespace std; int a,b,c,d; cin>>a>>b>>c>>d; if...

Функция не проходит тест
Прошу всех неравнодушных помочь разобраться в том, почему фунция валит тест. По условию фунция...

Функция возведения в куб, не проходит тип double
Уважаемые коллеги, нужна помощь! При использовании типа integer проблем не возникает, как только...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru