Leren programmeren: even / oneven

Met een invoervak txtGetal. Omdat een even of oneven getal in eerste instantie een geheel getal moet zijn, bouwen we daarop een test in.

Private Sub cmdBereken_Click()
Dim getal As Integer
Dim invoervuffer As Single
If Not IsNumeric(txtGetal.Text) Then Exit Sub
invoerbuffer = CSng(txtGetal.Text)
getal = Int(invoerbuffer)
If Not getal = invoerbuffer Then
MsgBox "Geen geheel getal"
Exit Sub
End If
If getal Mod 2 = 0 Then
MsgBox "even"
Else
MsgBox "oneven"
End If
End Sub

Als Excel functie.

Public Function IsEven(getal As Single) As String
If Not Int(getal) = getal Then IsEven = "geen geheelm getal"
If getal Mod 2 = 0 Then
IsEven = "even"
Else
IsEven = "oneven"
End If
End Function

Maar het is nuttiger om de Excel functie een boolean (waar/vals) te laten teruggeven. Zo'n functie kan men immers gebruiken in ALS.

Public Function IsEven(getal As Single) As Boolean
If Not Int(getal) = getal Then Exit Function
If getal Mod 2 = 0 Then IsEven = True
End Function