< Day Day Up > |

The Dim x As String Dim y As Double x = InputBox("Enter a number", "Input Required") If IsNumeric(x) Then y = CDbl(x) If y / 2 = Int(y / 2) Then MsgBox "Number is Even", vbInformation If y / 2 <> Int(y / 2) Then MsgBox "Number is Odd", vbInformation End If If Not IsNumeric(x) Then MsgBox "You did not enter a number", vbInformation If you are in Excel, you can use the worksheet functions |

< Day Day Up > |

Integrating Excel and Access

ISBN: 0596009739

EAN: 2147483647

EAN: 2147483647

Year: 2005

Pages: 132

Pages: 132

Authors: Michael Schmalz

Similar book on Amazon

flylib.com © 2008-2017.

If you may any questions please contact us: flylib@qtcs.net

If you may any questions please contact us: flylib@qtcs.net