Example

The following example implements a "cube(x)" function.

Visual Basic

Private Sub fpSpread1_CustomFunction(ByVal FunctionName As String, ByVal ParameterCnt As Integer, ByVal Col As Long, ByVal Row As Long, Status As Long)
    Dim vResult As Variant
    Dim b As Boolean
    Dim lArg1 As Long
    Dim dfArg1 As Double
    Dim nTypeArg1 As Integer
    Dim nStatusArg1 As Long
    ' Return a status of empty when a result cannot be
    ' computed
    Status = ValueStatusEmpty
    ' Implement the "cube()" custom function
    If FunctionName = "cube" Then
        b = fpSpread1.CFGetParamInfo(1, nTypeArg1, nStatusArg1)
        If nStatusArg1 = ValueStatusOK Then
            If nTypeArg1 = CFGetParamInfoTypeLong Then
                lArg1 = fpSpread1.CFGetLongParam(1)
                vResult = lArg1 * lArg1 * lArg1
                Status = ValueStatusOK
            ElseIf nTypeArg1 = CFGetParamInfoTypeDouble Then
                dfArg1 = fpSpread1.CFGetDoubleParam(1)
                vResult = dfArg1 * dfArg1 * dfArg1
                Status = ValueStatusOK
            End If
        End If
    End If
    If Status = ValueStatusOK Then
        b = fpSpread1.CFSetResult (vResult)
    End If
End Sub