R
Robert Flanagan
Any suggestions on how to confirm that the value in a cell is a whole
number?
Bob
number?
Bob
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
S
smartin
Robert said:Any suggestions on how to confirm that the value in a cell is a whole
number?
Bob
Def IsWholeNumber as Boolean
IsWholeNumber = MyValue = Abs(Int(MyValue))
R
Rick Rothstein
I'm pretty sure you don't want the Abs function in there (at least not how
you used it). What is wrong with just this....
IsWholeNumber = MyValue = Int(MyValue)
you used it). What is wrong with just this....
IsWholeNumber = MyValue = Int(MyValue)
S
smartin
Rick said:I'm pretty sure you don't want the Abs function in there (at least not
how you used it). What is wrong with just this....
IsWholeNumber = MyValue = Int(MyValue)
My understanding of the definition of "whole numbers" is "the set of
positive integers, including zero". If the OP meant "integer number",
then I agree to remove the Abs wrapper in the test, as you suggest.
R
Rick Rothstein
Okay, I see what you are doing... you are using the Abs value function to
filter out the negative values (forcing a False for them). Ok, as long as
the OP's understanding of "whole numbers" is the same as yours, your
statement is fine.
filter out the negative values (forcing a False for them). Ok, as long as
the OP's understanding of "whole numbers" is the same as yours, your
statement is fine.
P
Phil Hibbs
smartin said:My understanding of the definition of "whole numbers" is "the set of
positive integers, including zero". If the OP meant "integer number",
then I agree to remove the Abs wrapper in the test, as you suggest.
The definition is ambiguous:
http://en.wikipedia.org/wiki/Whole_number
Phil Hibbs.
B
Bernd P
Hello Bob,
Function IsWhole(r As Range) As Boolean
'TRUE if all values in range are whole numbers, FALSE if not.
Dim v, b As Boolean
For Each v In r
If v.Value <> CLng(v.Value) Then
IsWhole = False
Exit Function
End If
Next v
IsWhole = True
End Function
Here a whole number is a valid LONG number.
Change Clng to Int if you want to accept numbers > 1E15 as well.
Regards,
Bernd
Function IsWhole(r As Range) As Boolean
'TRUE if all values in range are whole numbers, FALSE if not.
Dim v, b As Boolean
For Each v In r
If v.Value <> CLng(v.Value) Then
IsWhole = False
Exit Function
End If
Next v
IsWhole = True
End Function
Here a whole number is a valid LONG number.
Change Clng to Int if you want to accept numbers > 1E15 as well.
Regards,
Bernd
S
smartin
Phil said:
I find it unintuitive that a negative integer would be considered
"whole", but your point is well taken. I should not assume "whole
number" has a specific meaning in common parlance.
FWIW the definition I used was the one imposed upon me 30-odd years ago.
We were rigorously tested on our ability to place a number in the
correct domain(s) of counting numbers, whole numbers, integers, rational
numbers, irrational numbers and complex numbers. Visions of Venn
diagrams are flooding back to me.