Golf StableFord Points Calculator

Category:

Miscellaneous

Type:

Snippets

Difficulty:

Beginning

Author:

Thomas Coombs

Version Compatibility: Visual Basic 6, Visual Basic 5

More information:

Works out the stableford score received when given the score, par,stroke index and handicap. Can be modified to accept an array, rather than one at a time.

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

Declarations:
' (None)

Code:

Function StablefordPoints(Handicap, Score, SI, Par)
    'Stableford Points Calculation
    Dim Count, SP
    
    If Handicap >= 0 Then
        If Score > 0 Then
            'Work out how many points the golfer receives
            SP = 0
            If Handicap = 0 Then
                SP = Score
            ElseIf Handicap <= 18 Then
                For Count = 1 To Handicap
                    If SI = Count Then
                        SP = Score - 1
                    Exit For
                    Else
                        SP = Score
                    End If
                Next
            ElseIf Handicap >= 19 And Handicap <= 36 Then
                For Count = 1 To Handicap - 18
                    If SI = Count Then
                        SP = Score - 2
                        Exit For
                    Else
                        SP = Score - 1
                    End If
                Next
            Else 'Handicap 37 to 45
                For Count = 1 To Handicap - 36
                    If SI = Count Then
                        SP = Score - 3
                        Exit For
                    Else
                        SP = Score - 2
                    End If
                Next
            End If 'Checking Golfers Handicap
            
            'Calculate the Stableford Points
            If SP - 1 = Par Then
                StablefordPoints = 1
            ElseIf SP = Par Then
                StablefordPoints = 2
            ElseIf SP + 1 = Par Then
                StablefordPoints = 3
            ElseIf SP + 2 = Par Then
                StablefordPoints = 4
            ElseIf SP + 3 = Par Then
                StablefordPoints = 5
            ElseIf SP + 4 = Par Then
                StablefordPoints = 6
            ElseIf SP + 5 = Par Then
                StablefordPoints = 7
            ElseIf SP + 6 = Par Then
                StablefordPoints = 8
            End If 'Calculating Stableford Points
        End If 'Score <> sEmpty
    End If
End Function