I need to create an Access only Round Down function.
This function must round down every number. Therefore,
if the number is 9.031 or 9.99949 the result still must
be 9.

I have been using Excel RoundDown function, but the
queries are becoming rather large and this function slows
down the processing intolerably.

Here is the function I have used:

Function xlRoundDown(dblNumber As Double) As Long
'Round number down using Excel RounDown function
Dim objExcel As Excel.Application

Set objExcel = CreateObject("Excel.Application")
xlRoundDown = objExcel.Application.RoundDown
(dblNumber, 0)

objExcel.Quit
Set objExcel = Nothing
End Function

I am familiar with Microsoft Knowledge Base Article
209996, but it does not do the trick.

Any help is greatly appreciated.

Lucky

You might try using the built-in Int or Fix functions. They would round
down both 9.031 and 9.99949 to 9. They differ in how they handle negative
numbers. Int rounds (truncates) away from zero, and Fix rounds (truncates)
towards zero. For example:

Int(-9.031) would return - 10

where as

Fix(-9.031) would return 9.



"Lucky" <(E-Mail Removed)> wrote in message
news:1ca9c01c452d6$e7715620$(E-Mail Removed)...
> I need to create an Access only Round Down function.
> This function must round down every number. Therefore,
> if the number is 9.031 or 9.99949 the result still must
> be 9.
>
> I have been using Excel RoundDown function, but the
> queries are becoming rather large and this function slows
> down the processing intolerably.
>
> Here is the function I have used:
>
> Function xlRoundDown(dblNumber As Double) As Long
> 'Round number down using Excel RounDown function
> Dim objExcel As Excel.Application
>
> Set objExcel = CreateObject("Excel.Application")
> xlRoundDown = objExcel.Application.RoundDown
> (dblNumber, 0)
>
> objExcel.Quit
> Set objExcel = Nothing
> End Function
>
> I am familiar with Microsoft Knowledge Base Article
> 209996, but it does not do the trick.
>
> Any help is greatly appreciated.
>
> Lucky
>

Have you tried FIX(9.99) which gives 9

Thank you for your suggestion. Worked exactly as
advertised.

Lucky

>-----Original Message-----
>You might try using the built-in Int or Fix functions.
They would round
>down both 9.031 and 9.99949 to 9. They differ in how
they handle negative
>numbers. Int rounds (truncates) away from zero, and Fix
rounds (truncates)
>towards zero. For example:
>
>Int(-9.031) would return - 10
>
>where as
>
>Fix(-9.031) would return 9.
>
>
>
>"Lucky" <(E-Mail Removed)> wrote in
message
>news:1ca9c01c452d6$e7715620$(E-Mail Removed)...
>> I need to create an Access only Round Down function.
>> This function must round down every number. Therefore,
>> if the number is 9.031 or 9.99949 the result still must
>> be 9.
>>
>> I have been using Excel RoundDown function, but the
>> queries are becoming rather large and this function
slows
>> down the processing intolerably.
>>
>> Here is the function I have used:
>>
>> Function xlRoundDown(dblNumber As Double) As Long
>> 'Round number down using Excel RounDown function
>> Dim objExcel As Excel.Application
>>
>> Set objExcel = CreateObject("Excel.Application")
>> xlRoundDown = objExcel.Application.RoundDown
>> (dblNumber, 0)
>>
>> objExcel.Quit
>> Set objExcel = Nothing
>> End Function
>>
>> I am familiar with Microsoft Knowledge Base Article
>> 209996, but it does not do the trick.
>>
>> Any help is greatly appreciated.
>>
>> Lucky
>>
>
>
>.
>

No and thank you for your suggestion. It does exactly
what I need.

Lucky

>-----Original Message-----
>Have you tried FIX(9.99) which gives 9
>.
>