Round Down 3

[turnerk200]

Hi, I have a simple bit of code that makes a calculation (see below), then rounds it to 2 decimal places, but it always rounds it up, I need it to round down. I've looked through here and I'm sure it's simple but cant work it out! Any help would be greatly appreciated.
Thanks,

Dim intBPS As Double

If Me.txtFundDollars > 0 Then
intBPS = Me.ErrorAmt / Me.txtFundDollars * 100
intBPS = Round(intBPS, 2)
Me.ErrorBPS = intBPS
End If

 

[BobStubbs]

Try using integer division in your calculation.

For example:

23456 / 100 = 234.56 (ordinary division - forward slash)
but
23456 \ 100 = 234 (integer division - backslash)

This always rounds down:

23499 \ 100 = 234

In your formula, I would try something like:

    intBPS = Me.ErrorAmt / Me.txtFundDollars * 10000
    intBPS = intBPS \ 100

Bob Stubbs

 

[kjv1611]

BobStubbs, thanks for that post - just happened upon it, and learned something new - may be useful at some point. Have a star!

Stephen
"Jesus saith unto him, I am the way, the truth, and the life:
no man cometh unto the Father, but by me." John 14:6 KJV

 

[turnerk200]

Thanks Bob that works a treat!
kt