Knowledge Share
Would you like to react to this message? Create an account in a few clicks or log in to continue.

Knowledge Share

Knowledge is NOT Power IMPLEMENTATION of knowledge is Power!!!
 
HomePortalGalleryLatest imagesRegisterLog in

 

 Validating PAN number

Go down 
AuthorMessage
Admin
Admin



Posts : 142
Points : 59334476
Reputation : 0
Join date : 2007-12-29
Location : Chennai

Validating PAN number Empty
PostSubject: Validating PAN number   Validating PAN number Icon_minitimeWed Jun 10, 2015 11:42 am

Function ValidatePAN(panentry As String) As Boolean

'ValidatePAN = True

'pan = Range("PAN").Value

If Len(panentry) > 0 Then

If Not IsNumeric(Mid(panentry, 6, 4)) Then

    ValidatePAN = False

    Exit Function

End If

If Not CheckAtoZ(Mid(panentry, 1, 1)) Then

ValidatePAN = False

Exit Function

End If

If Not CheckAtoZ(Mid(panentry, 2, 1)) Then

ValidatePAN = False

Exit Function

End If

If Not CheckAtoZ(Mid(panentry, 3, 1)) Then

ValidatePAN = False

Exit Function

End If

If Not CheckAtoZ(Mid(panentry, 4, 1)) Then

ValidatePAN = False

Exit Function

End If

If Not CheckAtoZ(Mid(panentry, 5, 1)) Then

ValidatePAN = False

Exit Function

End If

If Not CheckAtoZ(Mid(panentry, 10, 1)) Then

ValidatePAN = False

Exit Function

End If

End If


End Function



To check the letters in PAN falls in A-Z



Function CheckAtoZ(chr1) As Boolean

CheckAtoZ = True

If ((Asc(chr1) < 65) Or (Asc(chr1) > 90)) Then

CheckAtoZ = False

End If

End Function
Back to top Go down
https://knowledgeshare.forumotion.com
 
Validating PAN number
Back to top 
Page 1 of 1
 Similar topics
-
» Validating Apha Numeric

Permissions in this forum:You cannot reply to topics in this forum
Knowledge Share :: Testing :: Automation :: VSTS :: CODED UI-
Jump to: