關於利用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