EquitySABRVolCurve Example VB6




http://www.QuantTools.com
CapeTools Volatility Curves function list
EquitySABRVolCurve function

Welcome | Documentation format | QuantTools Groups | QuantTools Categories | Licence

Key TAGs | Excel Index | API Index


Example Visual Basic 6 Driver function. Preparing the parameters and the final function call (the result).

High level view of the code structure (resulting in the final function call to EquitySABRVolCurve() )

These are the financial QuantTools function calls that are used within the examples :





The objects generated by these functions are inter-connected in the following way :



VB6 Example - EquitySABRVolCurve





    '     ##################################################################################
    '     The first function here EquitySABRVolCurve(), contains a series of
    '     function calls leading upto the main function call, the second function
    '     within this file ( EquitySABRVolCurvePart() ).
    '     which contains the answer that we are looking for.

    '     The first function here is simply an example of how to construct the parameters 
    '     in order acquire either a string Key (that is to be passed to other functions) 
    '     or a computed result.

    '     If you are viewing this source code from the chm or web help file you can use the
    '     outlining features to collapse certain sections of the code for better readability. 
    '     ##################################################################################
                        


' Add a reference to the CTQL.dll ActiveX library (dll)

' Some global parameter in order to append to user defined keys.
' We use it here to ensure that we have unique Keys (in the case several of our examples
' use the same key-name)
' In normal use, a user defined string will be used and so this variable will be pointless.
Global nCTVolatiltyCurvesGlobal As Long
    
    
Public Function VB_EX_EquitySABRVolCurve() As String

    nCTVolatiltyCurvesGlobal = nCTVolatiltyCurvesGlobal + 1
            
    
On Error GoTo err_Generic
        
            
    

    '    Creates a centralized valuation date object.

    Dim MyValuationDate As String
    MyValuationDate = _
        ValueDateObjPart()


    

    '    EURO calendar used for holiday adjustments.

    Dim MyEuroCal As String
    MyEuroCal = _
        CALEUROPart()


    

    '    Creates an equity/FX/commodity SABR object to model the dynamics 
    '    of the volatility curve (smile).
    Dim MyEquitySABRVolCurve As String
    MyEquitySABRVolCurve = _
        EquitySABRVolCurvePart( _
        MyValuationDate, _
        MyEuroCal)

    ' This is the result we are looking for.
    VB_EX_EquitySABRVolCurve = MyEquitySABRVolCurve

            
    
    Exit Function
err_Generic:
    MsgBox "Error: " & Err.Number & vbCrLf & Err.Description    
    
            
End Function                
        


' ///////////////////////////////////////////////////////////////////

Private Function EquitySABRVolCurvePart( _
    MyValuationDate As String, _                
    MyEuroCal As String) As String


    
        '  Create example range for parameter EquitySABRVolCurve_SABRMatrix


        Dim EquitySABRVolCurve_SABRMatrix As Variant
        
        EquitySABRVolCurve_SABRMatrix = vRange.RangeFromStr _
         ( _
        CStr("{") + _
        CStr("'Opt\SABR'     | ATM     | ALPHA     | BETA     | RHO     | FWD ;") + _
        CStr("'3M'     | 20.01     | 3.8     | 0.7     | 0.25     | 207.04 ;") + _
        CStr("'6M'     | 20.02     | 3.8     | 0.7     | 0.25     | 215.04 ;") + _
        CStr("'9M'     | 20.02     | 3.8     | 0.7     | 0.25     | 223.68 ;") + _
        CStr("'12M'     | 20.03     | 3.81     | 0.7     | 0.25     | 229.31 ;") + _
        CStr("'2Y'     | 20.04     | 3.81     | 0.7     | 0.25     | 237.12 ;") + _
        CStr("'3Y'     | 20.05     | 3.81     | 0.7     | 0.25     | 247.11 ;") + _
        CStr("'4Y'     | 20.06     | 3.81     | 0.7     | 0.25     | 253.04 ;") + _
        CStr("'5Y'     | 20.07     | 3.81     | 0.7     | 0.25     | 261.81 ;") + _
        CStr("'6Y'     | 20.08     | 3.81     | 0.7     | 0.25     | 267.77 ;") + _
        CStr("'7Y'     | 20.09     | 3.81     | 0.7     | 0.25     | 277.48 ;") + _
        CStr("'8Y'     | 20.09     | 3.82     | 0.7     | 0.25     | 282.77 ;") + _
        CStr("'9Y'     | 20.1     | 3.82     | 0.7     | 0.25     | 290.6 ;") + _
        CStr("'10Y'     | 20.11     | 3.82     | 0.7     | 0.25     | 295.62 ;") + _
        CStr("'11Y'     | 20.12     | 3.82     | 0.7     | 0.25     | 301.61 ;") + _
        CStr("'12Y'     | 20.13     | 3.82     | 0.7     | 0.25     | 306.96") + _
        CStr("}") _
         )
    



    '    Key value to use as a handle for the created object
        Dim MyEquitySABRVolCurve As String
        MyEquitySABRVolCurve = "MyEquitySABRVolCurve" & "_" & CStr(nCTVolatiltyCurvesGlobal)


    '    When creating this object for the first time, set this parameter 
    '    to a positive value.
        Dim Reload As Long
        Reload = 1


    '    Number of days between the Exercise date of the options and 
    '    the STARTDATE of the instrument.
        Dim SettleDays As Long
        SettleDays = 2


    '    Is the input volatility entered as a percentage value (true), 
    '    or the raw volatility value (false).
        Dim DivideVolBy100 As Boolean
        DivideVolBy100 = true


    '    Business Day Convention.
        Dim BusDayConv As BDCEnum
        BusDayConv = BDC_modifiedfollowing


    '    DayCounter used for the calculation of option maturity in year 
    '    units.
        Dim DayCount As DayCountEnum
        DayCount = DayCount_30360


    '    Interpolation method to use when interpolating the curve for 
    '    vols, - LINEAR, LOGLINEAR, CUBIC.
        Dim InterpType As InterpEnum
        InterpType = Interp_LINEAR

                    
    '  Excel function call is : "CT.CRV.EquitySABRVolCurve()"

    '    Creates an equity/FX/commodity SABR object to model the dynamics 
    '    of the volatility curve (smile).
        Dim rEquitySABRVolCurve As String 
        Dim oCTVolatiltyCurves As New CTQL.CTVolatiltyCurves
    
        rEquitySABRVolCurve = oCTVolatiltyCurves.EquitySABRVolCurve( _
                MyEquitySABRVolCurve, _
                Reload, _
                MyValuationDate, _
                SettleDays, _
                EquitySABRVolCurve_SABRMatrix, _
                DivideVolBy100, _
                BusDayConv, _
                DayCount, _
                MyEuroCal, _
                InterpType)


    EquitySABRVolCurvePart = rEquitySABRVolCurve
    
End Function                        







Copyright (c) 2003-2007 CapeTools - All Rights Reserved.