Golf Handicap Calculation (ASP)

Category:

ASP, HTML and XML

Type:

Snippets

Difficulty:

Intermediate

Author:

Thomas Coombs

Version Compatibility: ASP

More information:

Will calculate a golfers handicap index. It is advisable to use more than five scores.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
None.

Code:

'************************************************
'* Written by Thomas Coombs, 2002
'* mail@thomascoombs.co.uk
'*
'* Usage : Use as you wish
'************************************************

'Pass in an array (zero based) use at least 5 scores.
'Array
'0 Gross Score (eg 79)
'1 Slope Index (use 113 if unknown)
'2 SSS (Course Par. Can be found on Score Card)

Function CalculateHandicap(HandicapArray)
    Dim ADiff(), Index, Differential, ADifferential, HIndex, UB

'Create and array to store the differential
    ReDim ADiff(UBound(HandicapArray, 2))
    
    For Index = 0 To UBound(HandicapArray, 2)
        'Calculate the differential
        Differential = HandicapArray(0, Index) - HandicapArray(2, Index)
        
        'Calculate adjusted differential
        ADiff(Index) = (Differential / HandicapArray(1, Index)) * 113
    Next
    
    'Sort the array
    Call ArraySort(ADiff, ">")

'Use the lowest 10, or however many are there
    If UBound(ADiff) > 9 Then
        UB = 9
    Else
        UB = (UBound(ADiff))
    End If
    
    For Index = 0 To UB
        HIndex = HIndex + ADiff(Index)
    Next
    
    'multiply by 96%.
    HIndex = HIndex * 0.96
    
    'divide this number
    HIndex = (HIndex / (UB + 1))

CalculateHandicap = FormatNumber(HIndex, 1)
End Function