Use Boolean value in an If statement : Logical Operators « Language Basics « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
VBA / Excel / Access / Word » Language Basics » Logical Operators 




Use Boolean value in an If statement
 
Sub Use()
    Dim userName As String
    Dim userBirthday As Date
    Dim nameOk As Boolean
    nameOk = True
    Do
        userName = InputBox("What is your first and last name?""Name")
        If (userName <> ""Then nameOk = ValidateName(userName)
    Loop While (nameOk = FalseOr (userName <> "")
End Sub

Function ValidateName(userName As StringAs Boolean
    Dim strLength As Integer
    Dim As Integer
    Dim numSpaces As Integer
    Dim tempString As String
    Dim msb As Integer
    userName = Trim(userName)
    strLength = Len(userName)
    For I = To strLength
        If Left(userName, 1" " Then
            numSpaces = numSpaces + 1
        End If
        userName = Right(userName, Len(userName1)
    Next I
    If (numSpaces <> 1Then
        ValidateName = False
        msb = MsgBox("Please enter just two names separated by one space", vbCritical, "Error")
    Else
        ValidateName = True
  End If
End Function

 














Related examples in the same category
1.Logical operators in VBA
2.Truth table for the AND operator
3.Truth table for the OR operator
4.Truth table for the NOT operator
5.Logical Expressions
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.