Dim Zahl As Double
        Dim Nachkommawert As Single
 
        Zahl = 2.41
        Nachkommawert = Zahl - Int(Zahl)
 
        Select Case Nachkommawert
            Case Is < 0.25
                Nachkommawert = 0.25
            Case Is < 0.5
                Nachkommawert = 0.5
 
        End Select
        Dim GerundeteZahl As Double
        GerundeteZahl = Int(Zahl) + Nachkommawert