Function runde5(betrag As Double) As Double
'Author: Heiko Hommes
'Date: 11.08.2003
'descr: Funktion ist aus einer Abfrage herraus aufrufbar.
'       Hier werden die die Nachkommastellen in 50 Cent Sprünge gerundet
'Aufruf: runde5([FELD])

Dim betrag_krit  As Integer

betrag_krit = Right(Str(Int(Format(betrag, "00000000000.00") * 100)), 2)

If betrag_krit < 10 Then
    betrag = Int(betrag)
End If

If betrag_krit >= 10 And betrag_krit <= 50 Then
    betrag = Int(betrag) + 0.5
End If

If betrag_krit > 50 And betrag_krit <= 99 Then
    betrag = Int(betrag) + 1
End If

runde5 = betrag

End Function