Avrundning 12,26 till 12,5 alternativt 12,24 till 12

Behöver lite hjälp med detta !
mvh Robban

Följande funktion fixar biffen:

Function Avrunda(ByVal Tal)

Tal = Format(Tal, "#.0")

Select Case CInt(Right(Tal, 1))
Case 3 To 7
Tal = Left(Tal, Len(Tal) - 1) & "5"
Case Else
Tal = CInt(Tal)
End Select

Avrunda = Tal

End Function

12,24 ger 12
12,25 ger 12,5
12,74 ger 12,5
12,75 ger 13

Hej Persson to Persson
Eftersom det är matematik kan du testa detta förslag

Private Sub Command1_Click()
Dim testFig As Single
testFig = CLng(12.26 + 12.26) / 2
Label1 = Format$(testFig,"0.0")
testFig = CLng(12.24 + 12.24) / 2
Label2 = Format$(testFig,"0.0")
End Sub

mvh
Sven