• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Calculates the Harmonic Mean of a series of numbers for use in statistical analysis, data mining, d

Calculates the Harmonic Mean of a series of numbers for use in statistical analysis, data mining, d

Calculates the Harmonic Mean of a series of numbers for use in statistical analysis, data mining, data analysis and mathematical analysis.

Rate Calculates the Harmonic Mean of a series of numbers for use in statistical analysis, data mining, d

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

On Error GoTo ErrorHandler

'***************************************COMMENTS SECTION******************************************************************
'
'Purpose:           Algorithm that calculates the Harmonic Mean of a series of numbers.
'
'Argument(s):       Numbers     -   a series of comma separated numbers.
'
'Source:            http://www.paretoanalysts.com
'
'Author:            Pareto Analysts
'
'Creation Date:     December 1, 2001
'
'Description:       Calculates the Harmonic Mean of a series of numbers
'                   for use in statistical analysis, data mining, data analysis and mathematical analysis.
'                   E.g. HarmonicMean(20,10,5,8)
'
'Return Value:      The Harmonic Mean of the series passed to the function.
'
'Return Type:       Double data type
'
'
'
'Warranty :         No claim is made as to the accuracy or fitness of this algorithm. The use of this
'                   algorithm is at your own risk and choice and the author is not liable in anyway
'                   for its use or damages that may occur as a result of its use.
'
'Copyright:         The use or distribution of this algorithm is free provided that it is
'                   used or distributed along with this COMMENTS SECTION and this COMMENTS SECTION
'                   has not been modified in any way. If this algorithm is used in a compiled form then
'                   this COMMENTS SECTION must also be placed in a readme.txt file
'
'Inquiries:         Inquiries about this algorithm, data mining, statistical analysis and data analysis
'                   can be directed to http://www.paretoanalysts.com
'
'**********************************************************************************************************
    
    
    Dim varNum As Variant
    Dim dblTotal As Double
    Dim dblCount As Double
    
    
    
    dblCount = 0                                               'The number of elements in the array
    dblTotal = 0                                               '
    
    
    For Each varNum In Numbers()
        If IsNumeric(varNum) And Not IsEmpty(varNum) Then       'Check if the variable is a valid number
            varNum = (1 / varNum)
            dblTotal = dblTotal + CDbl(varNum)                  'Expressely convert variant data to double
            dblCount = dblCount + 1
        Else
            Err.Raise vbObjectError + 1000, "www.paretoanalysts.com HarmonicMean ", "Only numeric values can be used."
            Exit Function
        End If
    Next
        
    
    HarmonicMean = (1 / (dblTotal / dblCount))
   
    
    
Exit_ErrorHandler:
    Exit Function
    
    
ErrorHandler:
    MsgBox Err.Number & " " & Err.Description, vbInformation, "www.paretoanalysts.com HarmonicMean"
    Resume Exit_ErrorHandler
    


End Function