[AccessD] Fix "reverse"

Gustav Brock gustav at cactus.dk
Fri Jul 11 05:55:33 CDT 2014


Hi all

Did you know, that it is quite easy to build a Fix that doesn't round numeric down (towards zero) but numeric up (away from zero):

    Public Function FixUp(ByVal dblValue As Double) As Long

        FixUp = -Sgn(dblValue) * Int(-Abs(dblValue))

    End Function

So:

    FixUp(1.46) => 2
    FixUp(-1.46) => -2

while:

    Fix(1.46) => 1
    Fix(-1.46) => -1

/gustav


More information about the AccessD mailing list