Hello,
Is it possible to use or to create a function who gives a result of
True or False
for even or uneven numbers ?

Thank you in advance,


                                Jean-michel

On 11 Feb 2007 08:29:31 -0800, "JeanMickey" <imej-clavier@wanadoo.fr>
wrote:

>Hello,
>Is it possible to use or to create a function who gives a result of
>True or False
>for even or uneven numbers ?
>
>Thank you in advance,
>
>
>                                Jean-michel
Use the mod function.

Richard
Web pages: http://www.caravanningnow.co.uk/ for caravanning,
http://www.rcole.org/ for my personal web site and
http://www.homeindorset.co.uk because I love the email address.
-- 
MURDERERS Need to dispose of a body? Simply parcel it up and post it to
yourself via DHL. You will never see it again. - 'Viz' top tip

On 11 Feb 2007 08:29:31 -0800, "JeanMickey" <imej-clavier@wanadoo.fr>
wrote:

>Hello,
>Is it possible to use or to create a function who gives a result of
>True or False
>for even or uneven numbers ?
>
>Thank you in advance,

Are they Integers ?

If so :   X And 1 = 1   if X is odd

In response to the post:
 On 11 Feb 2007 08:29:31 -0800, "JeanMickey" <imej-clavier@wanadoo.fr>
stated...and I replied:

>Hello,
>Is it possible to use or to create a function who gives a result of
>True or False
>for even or uneven numbers ?
>
>Thank you in advance,
>
>
>                                Jean-michel

As previously stated, the mod function will give you a numeric answer
of Odd or Even.  To answer the question on creating a function, yes it
is possible.  A further question would be... "which of the 2 states
will be True and which False?"

Private Function Odd_Even(X) As Boolean
    Odd_Even = CBool( Iif( Val( X ) MOD 2,"#TRUE#", "#FALSE#" ) )
End Function

HTH,
Shell

On Feb 11, 10:29 am, "JeanMickey" <imej-clav...@wanadoo.fr> wrote:
> Hello,
> Is it possible to use or to create a function who gives a result of
> True or False
> for even or uneven numbers ?
>
> Thank you in advance,
>
>                                 Jean-michel

Since the Mod operator will divide two numbers and return the
remainder, why not just Mod the number in question, dividing by 2.

If the remainder is zero, the number is even, and if the remainder is
1, then the number was odd.

E.g.,

If NumberInQuestion Mod 2 = 1 Then
   OddNo = True
Else
   OddNo = False
End If

"JeanMickey" <imej-clavier@wanadoo.fr> skrev i en meddelelse 
news:1171211371.317787.200550@j27g2000cwj.googlegroups.com...
> Hello,
> Is it possible to use or to create a function who gives a result of
> True or False
> for even or uneven numbers ?
>

I have always used :

If int(value / 2)= value / 2 then even = true else even = false 

Good evening

I've always used the following:

If number AND 1 =0 then even=true else even=false

Darryl


"Desserten" <FuckOff@SpamFucker.Zero> wrote in message 
news:45d1c3ab$0$223$edfadb0f@dread11.news.tele.dk...
>
> "JeanMickey" <imej-clavier@wanadoo.fr> skrev i en meddelelse 
> news:1171211371.317787.200550@j27g2000cwj.googlegroups.com...
>> Hello,
>> Is it possible to use or to create a function who gives a result of
>> True or False
>> for even or uneven numbers ?
>>
>
> I have always used :
>
> If int(value / 2)= value / 2 then even = true else even = false
> 

Just about everyone's had a go at this, so I don't want to be left out
<vbg>

Public Function bEven(lValue As Long) As Boolean
    bEven = ((lValue And 1) = 0)
End Function

    Tony Proctor

"JeanMickey" <imej-clavier@wanadoo.fr> wrote in message
news:1171211371.317787.200550@j27g2000cwj.googlegroups.com...
> Hello,
> Is it possible to use or to create a function who gives a result of
> True or False
> for even or uneven numbers ?
>
> Thank you in advance,
>
>
>                                 Jean-michel
>

> Just about everyone's had a go at this, so I don't want to be left out
> <vbg>

I don't want to be left out either<g>. Let's see... Hmm!... My favorite has 
already been posted.... What to do?... I guess I'll have to post a 
non-traditional method... Let's see now... I know!...

Function IsEven(Value As Long) As Boolean
  IsEven = (Right$(CStr(Value), 1) Like "[02468]")
End Function

Function IsOdd(Value As Long) As Boolean
  IsOdd = (Right$(CStr(Value), 1) Like "[13579]")
End Function

<vbg>

Rick 

"Rick Rothstein (MVP - VB)" <rickNOSPAMnews@NOSPAMcomcast.net> wrote in 
message news:G5ydneBiiI-kyE7YnZ2dnUVZ_segnZ2d@comcast.com...
>> Just about everyone's had a go at this, so I don't want to be left out
>> <vbg>
>
> I don't want to be left out either<g>. Let's see... Hmm!... My favorite 
> has already been posted.... What to do?... I guess I'll have to post a 
> non-traditional method... Let's see now... I know!...
>
> Function IsEven(Value As Long) As Boolean
>  IsEven = (Right$(CStr(Value), 1) Like "[02468]")
> End Function
>
> Function IsOdd(Value As Long) As Boolean
>  IsOdd = (Right$(CStr(Value), 1) Like "[13579]")
> End Function
>
> <vbg>
>
> Rick
>

What about:

Function IsOdd(ByRef MyNumber as Variant) As Variant
    Dim Message, Title, Default
    Message = "Is this an odd number"   ' Set prompt.
    Title = "InputBox Demo"   ' Set title.
    Default = "1"   ' Set default.
    ' Display message, title, and default value.
    IsOdd = InputBox(Message, Title, Default)
End Function