Afronden access

[bobkeizer]

Ik wil dat access getallen na een berekening naar boven afrond

Met Fix +1 doet het programma dit wel maar bijvoorbeeld 3,0 wordt 4

en da's nu net niet de bedoeling.

Kent access net zoiets als bij excel het "=AFRONDEN.BOVEN" ???

[stegisoft]

Met int kan je afronden.

Maar dan moet je wel in de tabel en eventueel in formulier zonder decimalen nemen.

Wel is het nodig bij VB om deze code toe te voegen:

* 100 + 0.5) / 100

Bijvoorbeeld totaal = (int(aantal * prijs)* 100 + 0.5) / 100

[bobkeizer]

ik ga het proberen

heb wel decimalen dus nu naar VB en da's nog niet mijn sterkste kant

[stegisoft]

Je kan dat ook doen in qeury.

[bobkeizer]

leg uit want da's makkelijker denk ik

[stegisoft]

Als je decimaal afrond dan doe je zo in query

Je wilt een getal met decimalen afronden en dus 12.5786 wordt 12.58

Basis: (Int(([somVanG_Totaal]/(100+[bTWtarief])*100)*100+0,5)/100)

Je wilt een getal met decemalen afrond naar heel getal 12.5786 wordt 13.00

Basis: (Int(([somVanG_Totaal]/(100+[bTWtarief])*100)+1))

Bij de eerst geval *100 + 0.5

Bij de twee geval voegt je 1 bij.

Dus je maakt een qeury van de tabel of van een query

Je neemt 1 of meerder waarde.

Dan eerst opslaan.

Daarna opnieuw ontwerpfase

Je neemt een lege kolom en dan met de rechtermuis op Opbouwen.

Je typ in het vakje boven Basis:

Je klik dan met de muis op de waarde die je wilt hebben en werkt dan af.

Dan wordt het basis: (waarde) * (waarde) en werkt dan verder af.

[cvremortel]

Ik wil dat access getallen na een berekening naar boven afrond

Met Fix +1 doet het programma dit wel maar bijvoorbeeld 3,0 wordt 4

en da's nu net niet de bedoeling.

Kent access net zoiets als bij excel het "=AFRONDEN.BOVEN" ???

je zou een functie kunne schrijven, b.v.

Public Function Afronding(eenGetal, eenCijfer) As Double

On Error GoTo errHandler

Dim Factor

If Not IsNumeric(eenGetal) Or Not IsNumeric(eenCijfer) Or eenGetal = 0 Then

Afronding = 0

GoTo procExit

End If

Factor = 10 ^ eenCijfer

Afronding = Int(eenGetal * Factor + 0.5) / Factor

procExit:

Exit Function

errHandler:

Resume procExit

End Function

[stegisoft]

cvremortel,

Nogal ingewikeld hoor.

Je kan best een voorbeeld geven zodat TS kan begrijpen.

Het lijkt veel op mijn bericht 2