Como calcular la desviacion estandar en ASP?

[Mario san]

Listo, este es el code

Código:

Public Function StandardDeviation(NumericArray,tam)

Dim dblSum
Dim dblSumSqdDevs
Dim dblMean
Dim lngCount
Dim dblAnswer
Dim vElementlngStartPoint
Dim lngEndPoint
Dim lngCtr

vElement = NumericArray(0)

lngStartPoint = 1
lngEndPoint = tam'UBound(NumericArray)

'get sum and sample size
For lngCtr = lngStartPoint To lngEndPoint
  vElement = NumericArray(lngCtr)
    If IsNumeric(vElement) Then
      lngCount = lngCount + 1
      dblSum = dblSum + CDbl(vElement)
    End If
Next

If lngCount > 1 Then
    dblMean = dblSum / lngCount

    For lngCtr = lngStartPoint To lngEndPoint
        vElement = NumericArray(lngCtr)

        If IsNumeric(vElement) Then
            dblSumSqdDevs = dblSumSqdDevs + ((vElement - dblMean) ^ 2)
        End If
    Next

    If lngCount > 1 Then
       lngCount = lngCount - 1 'Eliminarlo para poblaciones
        dblAnswer = Sqr(dblSumSqdDevs / lngCount)		
    End If
    
End If

StandardDeviation = formatnumber(dblAnswer,2)

End Function

Gracias a todos por su ayuda!!!