Afrunding af værdi på formular

Problemet skyldes sikkert PC'ens velkendte floating-point-problematik, hvor den ikke regner særlig præcist på alm. reelle tal.

Hvis du har mulighed for at skifte datatype til Decimal fungere det bedre. (hvis du benytter en variabel i VBA til mellemregninger, skal den have datatypen Variant, da Decimal ikke findes som VBA-datatype)

Eller....
du kan benytte denne funktion til at afrunde (som du selv forespørger):

Public Function Afrundtal(Tal As Single, Optional Nærmeste As Single = 1, Optional RundOp As Boolean = False) As Variant
    Dim tmp As Single
    Select Case Nærmeste
        Case 1
            tmp = Int(Tal + IIf(RundOp = True, 1, 0.5))
        Case Else
            tmp = Int(Tal / Nærmeste + IIf(RundOp = True, 1, 0.5)) * Nærmeste
    End Select
    Afrundtal = tmp
End Function

Den benyttes således:
Afrundtal(43.1234, 0.01)
resultat:
43.12

Format = Fast
Antal decimaler = 2

Takker, thomas.

nåå, jeg troede, at du havde afprøvet format-metoderne.
Problemet med format er jo, at der rent faktisk stadig står 3.18E-12 i feltet, selvom brugeren ikke ser det umiddelbart. Hvis han klikker i feltet, vil han se at der ikke står 0 men et andet tal. OG hvis du regner videre på det eller spørger på om det er nul, vil du få et forkert resultat.

Anyway, tak for point alligevel :o)