Public Overloads Function AddCalculatedMeasure( _
   ByVal DisplayName As String, _
   ByVal Description As String, _
   ByVal DisplayFolder As String, _
   ByVal UniqueName As String, _
   ByVal Visible As Boolean _
) As TMeasure

Dim instance As TMeasures
Dim DisplayName As String
Dim Description As String
Dim DisplayFolder As String
Dim UniqueName As String
Dim Visible As Boolean
Dim value As TMeasure
 
value = instance.AddCalculatedMeasure(DisplayName, Description, DisplayFolder, UniqueName, Visible)

public TMeasure AddCalculatedMeasure( 
   string DisplayName,
   string Description,
   string DisplayFolder,
   string UniqueName,
   bool Visible
)

public: TMeasure* AddCalculatedMeasure( 
   string* DisplayName,
   string* Description,
   string* DisplayFolder,
   string* UniqueName,
   bool Visible
) 

public:
TMeasure^ AddCalculatedMeasure( 
   String^ DisplayName,
   String^ Description,
   String^ DisplayFolder,
   String^ UniqueName,
   bool Visible
) 

private void CalculatingSalesAverage(object sender, TCalcMemberArgs e)
{
    if (e.CurrentAddress.Measure.DisplayName == "Sales Average")
    {
        ICubeAddress a = e.CurrentAddress;
        a.Measure = this.Grid.Measures.FindByDisplayName("Sales Count");
        int v1 = Convert.ToInt32(e.Evaluator.GetValue(a));
        if (v1 == 0)
        {
            e.ReturnData = null;
            e.ReturnValue = "N/A";
        }
        else
        {
            a.Measure = this.Grid.Measures.FindByDisplayName("Warehouse Sales");
            double v2 = Convert.ToDouble(e.Evaluator.GetValue(a));
            if (v2 == 0)
            {
                e.ReturnData = null;
                e.ReturnValue = "N/A";
            }
            else
            {
                e.ReturnData = v2 / ((double) v1);
                e.ReturnValue = e.Evaluator.Format(e.ReturnData, "Currency");
            }
        }
    }
}

Private Sub CalculatingSalesAverage(ByVal sender As Object, ByVal e As TCalcMemberArgs)
    If (e.CurrentAddress.Measure.DisplayName Is "Sales Average") Then
        Dim a As ICubeAddress = e.CurrentAddress
        a.Measure = Me.Grid.Measures.FindByDisplayName("Sales Count")
        Dim v1 As Integer = Convert.ToInt32(e.Evaluator.GetValue(a))
        If (v1 = 0) Then
            e.ReturnData = Nothing
            e.ReturnValue = "N/A"
        Else
            a.Measure = Me.Grid.Measures.FindByDisplayName("Warehouse Sales")
            Dim v2 As Double = Convert.ToDouble(e.Evaluator.GetValue(a))
            If (v2 = 0) Then
                e.ReturnData = Nothing
                e.ReturnValue = "N/A"
            Else
                e.ReturnData = (v2 / CDbl(v1))
                e.ReturnValue = e.Evaluator.Format(e.ReturnData, "Currency")
            End If
        End If
    End If
End Sub