Page tree

Welcome to FreeSoftwareServers Confluence Wiki

Skip to end of metadata
Go to start of metadata

You are viewing an old version of this page. View the current version.

Compare with Current View Page History

Version 1 Current »

Public Function IsEven(I As Integer) As Boolean

Even = (I Mod 2) - 1
If Even = 0 Then
    IsEven = False
Else
    IsEven = True
End If

End Function
Sub Test()
Dim I As Integer
Dim Test As Boolean

'I = 1
I = 2
Test = IsEven(I)

MsgBox Test

End Sub
  • No labels