Hej! Hej Function Score(Stroke As Integer, Par As Integer, Hcp As Integer, HoleHcp As Integer) As IntegerHCP
Är det någon som spelar golf? Jag skulle behöva en modul eller vad som hälst som räknade ut vad man har du handicap i golf. Hoppas någon vet…… Hur man räknar eller har kod…
Simma lugnt!
//RobbanSv: HCP
Jag gjorde för några år sedan ett progam som man
använder vid segeltävlingar.
Där använder man LysTal.Ungefär samma som handikap tror jag.
Jag skall lägga ut programmet i Filaren strax "SegelTävling"
Återkommer i ärendet.
mvh
SvenSv: HCP
Dim x As Integer
x = Hcp - (Int(Hcp / 18) * 18) - HoleHcp
If x < 0 Then
x = Int(Hcp / 18)
Else
x = Int(Hcp / 18) + 1
End If
Score = -(Stroke - (Par + x)) + 2
If Score < 0 Then Score = 0
End Function