module in access VB

[Robertflink]

In onderstaande module wil ik zorgen dat het Aantal_punten niet meer dan 12 kan zijn, maar het kan door een oorzaak wel eens boven de 12 zijn, maar als dit zo is moet het toch 12 worden. Hoe kan ik deze module wijzigen.

Public Function Aantal_Punten(Caramboles As Integer, Te_Halen As Integer, Bonus As Integer, winstpnt As Integer, Car_tegensp As Integer, Te_halen_tegensp As Integer) As Double
Dim Punten As Double
Dim punten_tegenst As Double
Dim Heel_punten As Integer
Dim Breuk As Integer
If Te_Halen <> 0 Then
Punten = (Caramboles / Te_Halen)
End If
' Bepaal punten
If Te_halen_tegensp <> 0 Then
punten_tegenst = (Car_tegensp / Te_halen_tegensp)
End If
If Punten >= 1 Then
Punten = Punten * winstpnt
If punten_tegenst >= 1 Then
Punten = Punten + (Bonus / 2)
Else
Punten = Punten + Bonus
End If
Else
Punten = Punten * winstpnt
End If

' Rond af op 0,5 NAAR BENEDEN
Heel_punten = Int(Punten)
Breuk = (Punten - Heel_punten) * 100

If Breuk < 50 Then
Breuk = 0
Else
Breuk = 50
End If

Punten = Heel_punten + (Breuk / 100)

Aantal_Punten = Punten




End Function

 

[Zqwiqly]

Hoi,

Aantal_Punten = Punten

vervangen in:

 If Punten > 12 Then
   Aantal_Punten = 12 
Else
   Aantal_Punten = Punten
End If

Succes,

Zqwiqly