Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4,VB5,VB6,VBS
Expertise: beginner
Jul 22, 2000

IsValidSSN - Check a Social Security Number value

' Validates attributes of the SSN
' Returns True if valid, False if invalid
'
'Example:
'   If IsValidSSN(Value:="333-44-3333", IsRequired:=True) then ...

Function IsValidSSN(ByRef Value As String, Optional ByVal IsRequired As Boolean _
    = True) As Boolean

    On Error GoTo ErrorHandler
    Dim strTemp As String
    Dim i As Integer
    Dim intMax As Integer

    IsValidSSN = True
    Value = Trim$(Value)

    If Value = "" Then
        If IsRequired Then
            IsValidSSN = False
        Else
            Exit Function
        End If
    End If

    intMax = Len(Value)
    For i = 1 To intMax
        Select Case Mid$(Value, i, 1)
            Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
                strTemp = strTemp & Mid$(Value, i, 1)
        End Select
    Next i

    Value = strTemp

    If Len(Value) <> 9 Then
        IsValidSSN = False
    Else
        Value = Left$(strTemp, 3) & "-" & Mid$(strTemp, 4, _
            2) & "-" & Mid$(strTemp, 6, 4)
    End If

ExitMe:
    Exit Function

ErrorHandler:
    Err.Raise Err.Number, "IsValidSSN", Err.Description

End Function

'###########################################################
'#
'#   This rountime has been brought to you by 
'#   Pragmatic Software Co. Inc, the creators of Defect Tracker, 
'#   the tool of choice for tracking functional specifications, 
'#   test cases and software bugs.
'#   Learn more at http://www.DefectTracker.com.
'#   Affiliate program also available at 
'#   http://www.PragmaticSW.com/AffiliateSignup.
'#
'###########################################################
Steve Miller
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date