关于利用Excel 中的函数个公式的方法 (STDEV())

 

有时开发需要用到一些Excel函数公式，可以采用以下方式调用Excel中的函数运算后返回值，已经通过测试

' dblData  是需要的参加运算的数据组

'STDEV 标准差公式

Public Function CalculateStandardDevition(ByVal dblData As Decimal()) As Decimal
        Dim xl As New Excel.Application
        Dim s As String = ""
        Dim DataValue As Decimal

        For nx As Integer = 0 To dblData.Length - 1
            If nx + 1 = dblData.Length Then
                s += dblData(nx).ToString()
            Else
                s += dblData(nx).ToString() + ","
            End If
        Next

        s = "STDEV(" + s + ")"

        DataValue = CType(xl.Evaluate(s), Decimal)
        xl = Nothing

        Return DataValue
    End Function