Gerade / ungerade Zahlen

[Olaf König]

Hallo,

gibt es unter VB auch eine Funktion mit der ich feststellen kann, ob eine Zahl ungrade ist?? (wie ODD() unter Delphi)

Gruss

Olaf

[Patrick Sack]

Hi,
<br>
<br>ob es so eine Funktion gibt weiß ich im Moment nicht aber wenn nicht, dann versuche das:
<br>Function odd(x As Long) As Boolean
<br> If x Mod 2 = 0 Then
<br> odd = True
<br> Else
<br> odd = False
<br> End If
<br>End Function
<br>
<br>mfg
<br>p

[Olaf König]

Super, tausend dank!

Ola

[Fred Ziebell]

Hi wenn x=integer dann

if (x/2)*2<>x then ...ungerade.

Gruss Fred Ziebel