Runde værdi op

Der findes en del funktioner til afrunding, men de fleste runder normalt af eller runder kun ned. Jeg har dog selv lavet en funktion, hvor du kan bestemme hvordan den skal runde af:

Public Function Afrundtal(Tal As Single, Optional Nærmeste As Single = 1, Optional RundOp As Boolean = False)
    If Nærmeste = 1 Then
        Afrundtal = Int(Tal + IIf(RundOp = True, 1, 0.5))
    Else
        Afrundtal = Int(Tal / Nærmeste + IIf(RundOp = True, 1, 0.5)) * Nærmeste
    End If
End Function

Eks:

Afrundtal(543.3,1,True)

resultat: 544

Hmmm...har du noget jeg kan smide direkte på tekstfeltets egenskab Kontrolelementkilde?! :)

Jep, hvis du gemmer funktionen i et modul, kan du bare skrive:
=Afrundtal([Dit felt];1;True)

Eller du kan lave en ny kolonne i din forespørgsel (hvis formularen er bundet til sådan en):
AfrundetVærdi: Afrund([Dit felt];1;True)

feltet AfrundetVærdi sættes så bare ind på formularen.

Just what I needed! Thanks, buddy.

Anytime og selv tak :o)