Hi everyone,
I have a code that I can use in Excel to round to the nearest 0.5, but I cannot get it to work in Access. When I try to execute it I get the following error message: "Compile error: user defined type not defined." Any idea what I need to do to change my code to work in Access?
Here's the code: -
'Round to nearest 0.5
-
Public Function vbaRoundTO(dblValue As Double, dblRoundTo As Double, _
-
Optional RoundingOption As rOpt = rNearest) As Double
-
Dim dblRoundedMutliple As Double
-
Dim dblValueDiv As Double
-
Dim dblValueNew As Double
-
-
'Set default retrun value if dblRoundTo = 0
-
If dblRoundTo = 0 Then
-
vbaRoundTO = 0 'OR vbaRoundTO = dblValue
-
Exit Function
-
End If
-
-
'Find multiple of RoundToSmallest
-
dblValueDiv = dblValue / dblRoundTo
-
-
'Option to RoundUP or RoundDOWN
-
Select Case RoundingOption
-
Case rNearest
-
'Round multiple to nearest
-
'DO NOT USE VBA Round() function.
-
'VBA : Round(2.5,0) = 2, i.e. rounds >=0.5 to 0 not 1
-
dblRoundedMutliple = vbaRound(dblValueDiv, 0)
-
Case rUp
-
'Round multiple UP
-
dblRoundedMutliple = vbaRound(dblValueDiv, 0, 1)
-
Case rDown
-
'Round multiple DOWN
-
dblRoundedMutliple = vbaRound(dblValueDiv, 0, 2)
-
Case Else
-
End Select
-
-
'Calculate new "rounded-to" value
-
dblValueNew = dblRoundedMutliple * dblRoundTo
-
-
'Return value
-
vbaRoundTO = dblValueNew
-
-
End Function
-
Thank you for helping!
Linda
1 5342
I figured out the problem. I had failed to copy over all the necessary code. In case anyone needs it. Here it is.
Code: -
'Set variables
-
Public Enum rOpt
-
rNearest
-
rUp
-
rDown
-
End Enum
-
'Rounding function
-
Public Function vbaRound(dblValue As Double, intDecimals As Integer, _
-
Optional RoundingOption As rOpt = rNearest) As Double
-
Dim dblPlacesFactor As Double
-
Dim dlbRoundFactor As Double
-
-
If intDecimals < 0 Then
-
vbaRound = 0
-
Exit Function
-
End If
-
-
dblPlacesFactor = 10 ^ intDecimals
-
-
Select Case RoundingOption
-
Case rNearest 'Round to Nearest
-
dlbRoundFactor = 0.5
-
Case rUp 'Round UP
-
dlbRoundFactor = 1
-
Case rDown 'Round DOWN
-
dlbRoundFactor = 0
-
End Select
-
-
vbaRound = Int(dblValue * dblPlacesFactor + dlbRoundFactor) / dblPlacesFactor
-
End Function
-
'Round to nearest 0.5
-
Public Function vbaRoundTO(dblValue As Double, dblRoundTo As Double, _
-
Optional RoundingOption As rOpt = rNearest) As Double
-
Dim dblRoundedMutliple As Double
-
Dim dblValueDiv As Double
-
Dim dblValueNew As Double
-
-
'Set default retrun value if dblRoundTo = 0
-
If dblRoundTo = 0 Then
-
vbaRoundTO = 0 'OR vbaRoundTO = dblValue
-
Exit Function
-
End If
-
-
'Find multiple of RoundToSmallest
-
dblValueDiv = dblValue / dblRoundTo
-
-
'Option to RoundUP or RoundDOWN
-
Select Case RoundingOption
-
Case rNearest
-
'Round multiple to nearest
-
'DO NOT USE VBA Round() function.
-
'VBA : Round(2.5,0) = 2, i.e. rounds >=0.5 to 0 not 1
-
dblRoundedMutliple = vbaRound(dblValueDiv, 0)
-
Case rUp
-
'Round multiple UP
-
dblRoundedMutliple = vbaRound(dblValueDiv, 0, 1)
-
Case rDown
-
'Round multiple DOWN
-
dblRoundedMutliple = vbaRound(dblValueDiv, 0, 2)
-
Case Else
-
End Select
-
-
'Calculate new "rounded-to" value
-
dblValueNew = dblRoundedMutliple * dblRoundTo
-
-
'Return value
-
vbaRoundTO = dblValueNew
-
-
End Function
Sign in to post your reply or Sign up for a free account.
Similar topics
by: b |
last post by:
Hello all, we have a table that is part of our accounting package that
stores decimals as such: 123.45678.
However the reporting standards with the accounting system display that as
123.45 note...
|
by: calan |
last post by:
Does anyone have a function that will round a number to 0 or .5?
I have a form where I'm entering a number in inches. I need to round it to
the nearest 1/2 inch (onChange).
The split will be...
|
by: Zorpiedoman |
last post by:
Howcome:
Dim D as decimal = .5D
msgbox d.Round(D, 0)
this returns "0"
Now when I went to school .5 rounds UP to 1 not DOWN to zero?????!!!
Documentation says this, but what the heck are...
|
by: Jeff Boes |
last post by:
(asked last week on .questions, no response)
Can anyone explain why this happens? (under 7.4.1)
select '2004-05-27 09:00:00.500001-04' :: timestamp(0) ;
timestamp
---------------------...
|
by: 6tc1 |
last post by:
Hi all, I just discovered a rounding error that occurs in C#. I'm sure
this is an old issue, but it is new to me and resulted in a fair amount
of time trying to track down the issue.
Basically...
|
by: John |
last post by:
Hi
I am calculating tax as follows;
= * / 100#
Client complains that there is sometimes difference in pennies in tax
calculation. Is there a better (more precise) way to calculate tax?
...
|
by: Spoon |
last post by:
Hello everyone,
I don't understand how the lrint() function works.
long lrint(double x);
The function returns the nearest long integer to x, consistent with the
current rounding mode. It...
|
by: md |
last post by:
Hi
Does any body know, how to round a double value with a specific number
of digits after the decimal points?
A function like this:
RoundMyDouble (double &value, short numberOfPrecisions)
...
|
by: jacob navia |
last post by:
Hi
"How can I round a number to x decimal places" ?
This question keeps appearing. I would propose the following
solution
#include <float.h>
#include <math.h>
|
by: bdsatish |
last post by:
The built-in function round( ) will always "round up", that is 1.5 is
rounded to 2.0 and 2.5 is rounded to 3.0.
If I want to round to the nearest even, that is
my_round(1.5) = 2 # As...
|
by: nemocccc |
last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
|
by: Sonnysonu |
last post by:
This is the data of csv file
1 2 3
1 2 3
1 2 3
1 2 3
2 3
2 3
3
the lengths should be different i have to store the data by column-wise with in the specific length.
suppose the i have to...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers,...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and...
| |