Проблема с типами данных. Run-time error '6': OverFlow

@Leeto · Регистрация: 23.12.2011

Студворк — интернет-сервис помощи студентам

Visual Basic

Option Explicit
Option Explicit
Dim curCSP As Single
Dim curSP As Single
Dim dbSV As Single
Dim dbIr As Single
Dim dbTM As Single
 
'Const curCSP = 51
'Const curSP = 50
'Const dbSV = 0.6
'Const dbIr = 0.05
'Const dbTM = 0.164
 
 
Sub CallOptionCalculator()
 
 
Range("B1").Activate
curCSP = ActiveCell.Value ' current stock price (= S )
 
Range("B2").Activate
curSP = ActiveCell.Value ' strike price (= K )
 
Range("B3").Activate
dbSV = ActiveCell.Value ' stock volatility (= sigma )
 
Range("B4").Activate
dbIr = ActiveCell.Value ' interest rate (= r )
 
Range("B5").Activate
dbTM = ActiveCell.Value ' time to maturity (= T )
 
 
 
CulculationDelta1Function
 
MsgBox ("Your dbDelta1 is " & dbDelta1)
 
 
 
End Sub
 
_______________________________________________
Sub CulculationDelta1Function()
 
Dim dbDelta1 As Double
 
'Const curCSP = 51
'Const curSP = 50
'Const dbSV = 0.6
'Const dbIr = 0.05
'Const dbTM = 0.164
 
 
dbDelta1 = Round((Log(curCSP / curSP) + (dbIr + 0.5 * dbSV ^ 2) * dbTM) / (dbSV * Sqr(dbTM)), 3)
 
 
 
MsgBox ("Your dbDelta1 is " & dbDelta1) ' debugging line
 
 
End Sub

Если поменять переменные на константы (см. то что закоментено) то все, ок.
Пробовал менять переменные на double, single, long ... все равно ошибка не пропадает.
Что делать ?

Заранее спасибо.

@Казанский · 01.02.2012, 14:09

Посмотрите, чему равны переменные: View - Locals Window. Или просто наводите курсор на на переменные.
Или выделите выражение и наведите на него курсор.
У меня все переменные =0, т.к. я вставил код в пустую книгу.

@Leeto · 01.02.2012, 19:37 **[ТС]**

Сообщение от Казанский

Посмотрите, чему равны переменные: View - Locals Window. Или просто наводите курсор на на переменные.
Или выделите выражение и наведите на него курсор.
У меня все переменные =0, т.к. я вставил код в пустую книгу.

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

Если отбросить вторую часть формулы и оставить только логарифм, тоже не работает. А если убрать логарифм и отставить только произведение, то все работает. Мистика =(

Есть какие нибудь догадки? Пожалуйста.

@аналитика · 01.02.2012, 20:47

вместо того, чтобы людям перебирать бесконечное количество вариантов с 5-ю переменными, дал бы конкретную xl-книгу с указанием, что ты делаешь и где у тебя ошибка.

Сообщение от Leeto

А если убрать логарифм и отставить только произведение, то все работает

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\lim_{x\rightarrow 0} \ln x = \propto$

вот такие догадки у меня...

@Leeto · 03.02.2012, 16:35 **[ТС]**

Сообщение от аналитика

вместо того, чтобы людям перебирать бесконечное количество вариантов с 5-ю переменными, дал бы конкретную xl-книгу с указанием, что ты делаешь и где у тебя ошибка.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\lim_{x\rightarrow 0} \ln x = \propto$

вот такие догадки у меня...

Visual Basic

Option Explicit
Dim curCSP As Currency, curSP As Currency, dbGamma As Double, dbNDFd1 As Double, dbDelta As Double, dbCNF As Double, dbNDF As Double, dbSV As Double, dbIr As Double, dbTM As Double, dbCNF_d1 As Double, dbCNF_d2 As Double, dbDelta_two As Double, dbDelta1 As Double, dbNDF1 As Double
 
Sub CallOptionCalculator()
 
Dim curValue As Currency
 
Range("B1").Activate
curCSP = ActiveCell.Value ' current stock price (= S )
 
Range("B2").Activate
curSP = ActiveCell.Value ' strike price (= K )
 
Range("B3").Activate
dbSV = ActiveCell.Value ' stock volatility (= sigma )
 
Range("B4").Activate
dbIr = ActiveCell.Value ' interest rate (= r )
 
Range("B5").Activate
dbTM = ActiveCell.Value ' time to maturity (= T )
 
 
 
           Dim A As Currency
 
 
            
             CulculationDelta1Function
            
                                                                   ' MsgBox ("Your dbDelta1 is " & dbDelta1) ' debugging line
 
             CulculationNormalDensityFunction (1) ' = n(x)
          
                                                                  '  MsgBox ("Your n(x) is " & CulculationNormalDensityFunction(dbDelta1)) ' debugging line
             
             dbNDF = CulculationNormalDensityFunction(dbDelta1)
             
            
 
             
             dbDelta = dbDelta1
             
                                                                   MsgBox ("Your (dbNDF_d1)=n(x) is " & dbNDF)
             
                                                                   MsgBox ("Your dbDelta = dbDelta1 is " & dbDelta)
                        
                                                                   MsgBox ("Your (CNF) is " & dbCNF)  ' debugging line
 
             CulculationCumulativeNormalFunction
                        
                         
                         
                          
 
End Sub
 
 
Sub CulculationCumulativeNormalFunction()
 
 
 
Const factorGamma = 0.2316419
Const factorA1 = 0.31938153
Const factorA2 = -0.356563782
Const factorA3 = 1.781477937
Const factorA4 = -1.821255978
Const factorA5 = 1.330274429
 
Dim factorK As Double
 
 
            factorK = 1 / (1 + factorGamma * dbDelta)
            dbCNF = Round(1 - dbNDF * (factorA1 * factorK + factorA2 * (factorK ^ 2) + factorA3 * (factorK ^ 3) + factorA4 * (factorK ^ 4) + factorA5 * (factorK ^ 5)), 6)
 
 
 
End Sub
 
Function CulculationNormalDensityFunction(dbX As Double) ' = n(x)
 
    Const PI = 3.14159265358979
 
          CulculationNormalDensityFunction = Round((1 / Sqr(2 * PI)) * Exp(-(dbX ^ 2) / 2), 6)
 
End Function
 
Sub CulculationDelta1Function()
 
         dbDelta1 = Round((Log(curCSP / curSP) + (dbIr + 0.5 * dbSV ^ 2) * dbTM) / dbSV * Sqr(dbTM), 6)
 
End Sub

Заранее спасибо

@аналитика · 03.02.2012, 16:59

1) у меня ошибок не возникло
2) твой код написан в стиле #не допущено цензурой#

3) замени начало на:

Visual Basic

    curCSP = Range("B1")    ' current stock price (= S )
    curSP = Range("B2")    ' strike price (= K )
    dbSV = Range("B3")    ' stock volatility (= sigma )
    dbIr = Range("B4")    ' interest rate (= r )
    dbTM = Range("B5")    ' time to maturity (= T )

4) процедура с названием ...Function заставляет задуматься о вменяемости кода
5) переменные уровня модуля (в таком количестве) - это очень "не здоровье"

6) = 1) ошибок не возникло

@Leeto · 03.02.2012, 18:03 **[ТС]**

Сообщение от аналитика

1) у меня ошибок не возникло
2) твой код написан в стиле #не допущено цензурой#

3) замени начало на:

Visual Basic

    curCSP = Range("B1")    ' current stock price (= S )
    curSP = Range("B2")    ' strike price (= K )
    dbSV = Range("B3")    ' stock volatility (= sigma )
    dbIr = Range("B4")    ' interest rate (= r )
    dbTM = Range("B5")    ' time to maturity (= T )

4) процедура с названием ...Function заставляет задуматься о вменяемости кода
5) переменные уровня модуля (в таком количестве) - это очень "не здоровье"

6) = 1) ошибок не возникло

Спасибо за критику кода .

Странно эта ошибка ликвидировалась когда я @#$@#$ всякую по удалял. Вот в этом файле ошибка точно есть.

@Казанский · 03.02.2012, 22:05

Вызвал подпрограмму наугад - получил Overflow, опять же потому что все переменные =0.
Переменные считываются из ячеек только в Sub CallOptionCalculator(), соответственно, в начале каждой подпрограммы следовало бы вызывать ее (но, конечно, не из тех, которые вызывает она сама, иначе произойдет зацикливание).

В Sub CulculationDeltaFunction() - неопределенное имя dbCNF_d1

Добавлено через 8 минут

Сообщение от аналитика

4) процедура с названием ...Function заставляет задуматься о вменяемости кода

Вообще-то это обычный метод объявления процедуры без параметров, но которая не видна из окна Alt+F8.
Альтернативы: Private - но тогда она не видна из других модулей,
Property Get - слишком вычурно

Проблема с типами данных. Run-time error '6': OverFlow

Решение

Решение

@Казанский 15137 / 6411 / 1730 Регистрация: 24.09.2011 Сообщений: 9,999
	01.02.2012, 14:09	2
	Посмотрите, чему равны переменные: View - Locals Window. Или просто наводите курсор на на переменные. Или выделите выражение и наведите на него курсор. У меня все переменные =0, т.к. я вставил код в пустую книгу. Миниатюры 1

@Leeto 7 / 7 / 3 Регистрация: 23.12.2011 Сообщений: 372 Записей в блоге: 1
	01.02.2012, 19:37 [ТС]	3
	Сообщение от Казанский Посмотрите, чему равны переменные: View - Locals Window. Или просто наводите курсор на на переменные. Или выделите выражение и наведите на него курсор. У меня все переменные =0, т.к. я вставил код в пустую книгу. Нет у меня не ноль, не в этом проблема. В этом легко убедиться если в соответствующие клетки подставить значения. У меня была идея, что мож значение при умножении и других манипуляциях выходят за декларированный (типом данных) диапазон. Но версия эта отпала после того как я подставил значения в качестве констант (см. закомментирование строки). Если отбросить вторую часть формулы и оставить только логарифм, тоже не работает. А если убрать логарифм и отставить только произведение, то все работает. Мистика =( Есть какие нибудь догадки? Пожалуйста. 0

@аналитика здесь больше нет... 3372 / 1670 / 184 Регистрация: 03.02.2010 Сообщений: 1,219
	01.02.2012, 20:47	4
	Сообщение было отмечено как решение Решение вместо того, чтобы людям перебирать бесконечное количество вариантов с 5-ю переменными, дал бы конкретную xl-книгу с указанием, что ты делаешь и где у тебя ошибка. Сообщение от Leeto А если убрать логарифм и отставить только произведение, то все работает $https://www.cyberforum.ru/cgi-bin/latex.cgi?\lim_{x\rightarrow 0} \ln x = \propto$ вот такие догадки у меня... 3

@Казанский 15137 / 6411 / 1730 Регистрация: 24.09.2011 Сообщений: 9,999
	03.02.2012, 22:05	8
	Вызвал подпрограмму наугад - получил Overflow, опять же потому что все переменные =0. Переменные считываются из ячеек только в Sub CallOptionCalculator(), соответственно, в начале каждой подпрограммы следовало бы вызывать ее (но, конечно, не из тех, которые вызывает она сама, иначе произойдет зацикливание). В Sub CulculationDeltaFunction() - неопределенное имя dbCNF_d1 Добавлено через 8 минут Сообщение от аналитика 4) процедура с названием ...Function заставляет задуматься о вменяемости кода Вообще-то это обычный метод объявления процедуры без параметров, но которая не видна из окна Alt+F8. Альтернативы: Private - но тогда она не видна из других модулей, Property Get - слишком вычурно 1

Опции темы