Rounding Currencies

[Bigsteve42]

Really need help on this one have went through previous solutions but can't seem to find one I need. I have two currency fields [AnnualPrem] and [DepositPrem] the on exit event for [AnnualPrem] is
Me![DepositPrem] = Me[AnnualPrem] *1.1

However I need to round the [DepositPrem] to the nearest £10
Any ideas would be greatly appreciated. Have only just started using Access so in dummy terms would be good.

Thanks

 

[mp9]

I haven't tested this but try something like:

Me![DepositPrem] = ((Me[AnnualPrem] *1.1)+5)) - Mod((Me[AnnualPrem] *1.1)+5),10)

http://www22.brinkster.com/accessory/

 

[MichaelRed]

for GENERAL purpose rounding,

Function basMRound(Number As Double, Multiple As Double)

    'Usage: ? basMRound (132.3614, 0.7)
            ' 132.3

    'Set up variables
    Dim dblDivided As Double
    Dim intDivided As Integer


    dblDivided = Number / Multiple      ''Divide

    intDivided = Int(dblDivided)        'Integerise

    intDivided = Round(dblDivided, 0)   'Round

    'Return result, returning to nearest multiple
    basMRound = intDivided * Multiple

End Function

MichaelRed
m.red@att.net

Searching for employment in all the wrong places

 

[Bigsteve42]

Thanks very much. I managed to get it working