أسرع طريقة لمعرفة إذا كان الرقم زوجي أو فردي

  • طباعة

استخدم هذه الدالة

كود:


Function isEven(n As Integer) As Boolean


isEven = True


If n And 1 Then isEven = False


End Function


Private Sub Command1_Click()


MsgBox isEven(4)


End Sub





http://www.arabteam2000-forum.com/